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Applesoft is a copyrighted 
program of Apple Computer, 
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From the archives of 
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APPLE Il FOREVER 


cansasfest 


1 KKK KKK KK KKK AKER KKK KK EK KKK KKEK KKK 
2 * * 
- K Applesoatft 

4 x * 

re X¥ Applesaft is a copyrighted ¥ 

& X program af Apple Computer, X 

Fs * Inc. and Microsoft, Inc. ¥ 

3 Ss | x 

9 ¥ This source listing is for * 
16 K use only by the rightful K 
ii x owner of the copy of ¥ 
Lz X¥ Applesoft from which it was x 
i3 k generated and may not be * 
14 KX published or distributed to x 
Ge Xx others, whether or not for x 
14 x commercial purposes, K 

a * * 
18 ECS LS SSS SS SSS SSC CCS SSCS CCS. See 
1? x x 
48) x Put SYM $8000 to assemble. K 
rede * 

ae ELSES SESE SSS SSCS CS SCSSSCCOC S.C TS 
ae} ERR ($75) Check that SYM is set 
Pte ERR ($76)-$80 : to $8000 


oe SAVEQR] KBD 


mA 

ad ORG #Dpoon 
i DO ) 

4h 

Ma an INCR MAC 

we INC ji 
we BENE NI 
8 INC Ji-ti 
ae NT << 

40 
41 DECR MAC 

a LDxX. 71 
43 BNE ND 
4} DEC Fit 
45 ND DEC 71 
4S ghar oe 
47 
43 CMP F MAC 
49 LDA Ji 
wit) Hh i | Fa 
ne | LDA Jitl 
sh Sel J+ 
on 4 
4 
rs So TR MAc 
wt LDA Fi 
ar STA 32 
wet £i¢ 


i 
i gp 


en ee i 


TRDE 


TRX 


TRAX 


TRAY 


TRXY 


AD 


ADD 


SE 


SUE 


samara: age: (oo siamemensn 
MAC 
>>? FR. 31392 
>> the SEPT 2h 1 


AD. 11312: 13 
AD. Jit13; 12+12 754+4 


SB.J1l;]2: 15 
SH. J1i+is ]J2+1s 13+1 


- ° ry > 7 °* © . ’ ", rg 


. % - 


*~OON OMAGH 


sssee seese seeee same essen Page 4 sesnenece 


BUMP MAC 
ADC Ji 
STA Ji 
BCC EBFD 
INC Jiti 
RFD << 
PUSH MAC 
LDA Jitl 
FHA 
LDA Ji 
PHA 
PULL MAC 
PLS 
SrA Jd 
FLA 
STA Ji¢tli 
NEG MAC 
LDA Ji 
EOR #¢$FF 
STA Jl 
FIN 


DO SAVEOER] 
DSE APFLESOFT. OBJ 
FIN 


PUT APSOFT I 
LESS SSS SS SESS SSS S SESS SSS SSS SS 
x 


Appleasoft —- Fart I 
Copywrite Apple Computer, 
Inc. and Microsoft, Inc.3 


not for publication ar 
distribution. 
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KKK KK KK KKK EKER KR KKK KKK KK KKK EE 
x K 
¥ Input parsing, K 
¥ Routine addressing, K 
¥ Foar-next loops, etc. K 
Ss K 
* $DO00 — #$DD74 K 
x x 
KEK KKK KK KKKKKKK KKK KKKK KKK KKK 
¥ Equates for all parts: 


*¥ Applesoft tokens: 


* “ae %, a 
* 


osu 
i ein 
Sr Lnt 
tab 
to 

fry 
SOc 
then 
at 
mat 
Sten 
plus 
Mi Mas 
equal 
Son 
SScree ry 


leftstr 


x Zero page locations: 


GOWARM 


GOSTROUT 


USR 

CHARAC 
ENDCHR 
PNTR 

NUMDIM 
DIMFLG 
VAL TYF 


DATAFLG 


GARFLG 
SUBFLG 


INFUTFLG 
CPRMASE. 
SIGNFLG 


SHAPEL 


GRASL 
GRBASH 
Hie 

Ve 
HMASE 
INVFLG 
PROMPT 
ALL 
AIH 
AL 

eH 

LT NNUM 
Teer 


ee0ne CFPEE G0008 Seeee seers 
20008 obese SONGS cones cere 


HoH HH OH WOH OW H OW HOH FF OH HOW FT OT oH OG OR 


io fo HoH HE HOH GP H POR OH OE GW OH OU H DOH HW PH PH GP OH OW OR 


$13 
DATAFLG 
$14 
$15 
$14 
$14 
$14 
$18 
$10 
$i1D 
$24 
$2O 
$7 
$2C 
oD 
$30 
$32 
$335 
$3C 
$ 3D 
$3E 
SF 
$50 
$52 


enone cote aeeee 


sSet up by cold start 
5s but not used anywhere. 


gUsed in array rtns 
2 VAL TYP=$FF 5 
tUgsecd im FARSE 
;Used in GARBAG 


“43 VAL TYP +1=¢80 


sHas $40 for GET, $98 for READ 
sReceives CRPRTYF in FRMEVL 
sFlags siqn in TAN 


LASTET 
TShrst 
INDEX 

DEST 

RESULT 
TXTTAER 
VAR TAR 
ARY TAR 
So TREND 
FRE TOP 
galt a * 
MEMSTI2 
CURL TN 
OLDLIN 


OLDTEXT 


DATLIN 
DATFTR 
INF TR 

VARNAM 
VARPNT 
FORFNT 
TARPSV 

LAS TOF 
LPRTYP 
FNCNAM 
DSCPTR 
DSCLEN 


JMFADRS 


LENGTH 
ARYENT 
HTGHDS 
HIGHTR 
INDX 
LOWTER 
DSCTMP 
VENT 


EXTRASY 


TEMP I 
TEMPS 
TEMPS 
TMPEXF 
EXPON 
DFFLG 
EXPSGN 


FACSGN 
ARGSGN 
SGNCPR 


EXTRAFAC 


SERPNT 
STRING I 
STRNGS 
FROGEND 
CHRGET 


Hou ud oH OH Wo HH HP HP on HOR OH HOH OW Gf oo i fo ou HOW 


HoH GP HOW HO OB OH 


HoH i HOW fi 


Ho HH HP OH FOR OF 


iow dou oo i 


$45 
FAC+S 
ARG+E 
SAE 
$AC 
$AD 
$AB 
$AD 
SAF 
$E1 


SPOR) GEES COhee SeeTe teens 
Send SEPee coves cosee eeeee 


ss VARNAM+I -—3 “2s VARNAM — 


slUised in INFUT 
gscratch flag used in FRMEVL 
g3,=,0 flag in FRMEVL 


gUsec in GARBAG 


¢ Used 
s;Used 


in GARBAG 
im GARBAG 


sliged by array rtns 


; Temp var ptr 
FF extra precisian 
;5ave areas for FAC 


gUigec im FIN (EVAL) 


sFlags dec pnt im FIN 

; "' sign of @xp in FIN 
gPrimary floating pnt ace 
sHolds length of series-1 


soecandary fp acc 
sHolds unpacked sign 


srlags opp sign in FF rout. 
fee precision 
sFntr to series data in FP 


0 “a “ae “ws? " ul * ” 


“0 “a 0 


CHRGOT 
TXTPTR 


RNDSEED 


DXL. 


ERRPOS 
ERRAUM 
ERRS TE 
XOL. 
XOH 
YO 


HCOOLORZ 


HIND xX 
HP AG 
SCALE Z 


SHAPEPNT 
COLCOUNT 


FIRST 
SPEEDZ 
TRCFLG 
QRMASE 
TXTFSYV 
CURL SV 
REMSTE 
ROT Z 


eceee eoens sbEee rere cones 


Hou HP HOH WH HOH H FP OH HOH HOH WH FP Go To oH HW ROH UP OB GP Gb FOR WOH 


* FF is also 


xX Apple stuffs 


TXTCLAR 
MIXCLR 
MIXSET 
_LOWSCR 
HISCR 
LORES 
HIRES 
HOME 
RDZEIT 
GETLIN 
RDEEY 
WRITE 
COUT 


MONWA LT 


SCRN 
FREAD 
INPORT 


io i oH oH Hi 


HoH PH EP HE OR OD HOW OF 


$F9 


POPs DORET GRESS eneeE seree 
Renee enter Genes seeet cores 


tFrevents user access if 


sOutput speed 


sHas $40 for flash 


used by the string out rtns. 


$ LOO 

$200 

$3FS 

$COOO 
$COSO 
$COS2 
$COSS 
$COS4 
$COSS 
$CO36 
$COS?7 
$F C38 
$F CFA 
$F DSA 
$F DOC 
$F ECD 
$F DED 
$F CAS 
$F S87 1 
$F ERLE 
$FEQE 


DOOOs 
DOO s 
DOs s 
DOOSs 
DOO s 
DOA s 
DOOC : 
DOOE sz 
DOLOs 
DOI2: 
DOL4: 
DOG: 
DOB: 
DOLLA: 
DOC: 
DOLE: 
DOO s 


DOS2: 
DOD4A: 
D036: 
DOSS: 
DOBAL 
DOSCs 
DOSE: 
DOA s 
DOA? s 
DO44s 
DOGS z 
DOA s 
DOA: 
DOA s 
DOE s 
DOBOs 
DOSS s 
DOT s 
pBlGrat...- 
| we $ 


DOSA sg 


&F 
&3 
FS 
94 
Bi 


at) 


QUTFORT 
MONFLOT 


HL. TE: 
VLINE 
SETCOL 
TARY 

SE TGR 
sk TT XT 


MONREAD 
MONREAD? 


CMDTABL. 


SPOee 29908 COON Sones verse 


NOTRACE-1 


NORMAL ~ 


1 


INVERSE 1 


FLASH 1 
COLOR-1 


igi a | 
VTAB~1 


HIMEM~1 
LOMEM—1 
ONERR— 1 
RESUME — 
RECALL — 
SIrURE~1 
SPEED~1 


Be ae | 
a ed 
RUN 1 
sees 


1 
1 


DOSC s 
DOSE: 
DOSOs: 
Dose: 
ae 
DOSS s 
DOSS: 
DOSA: 
DOSC: 
DOSE s 
DO7 Os 
DO723 
DOT 4: 
DO7&: 
DO7S: 
DO?7A: 
DO?7C s 
DOVE: 
DOBOs 
DOS: 
DOs s 
DOS s 
DOSS: 
DOSA: 
DOBC s 
DOSE s 
DOPOD s 
DOGS: 
DOP! s 
PDEs 
.~ 983 
DOPAs 
DOSC: 
DOSE s 
DOA: 
DOAS s 
DOAA: 
DOASs 
DOAS s 
DOAA : 
DOAC 
DOAEs 
DOBRO: 


aC) 


EA 


AS 


UNFNC 


BOERS sees eens S0nEe conte 
PEtee Sneee Geeee cetee sees 


* The hex #s 


MATHT RL 


HE: X 


eened BeGEP Sener tees ereey 
SPCES STEED CRESS eneeT weere 


RESTORE-1 
AMPER—1 
GOSUB-1 
POP-1 
REM—1 
STOFP—1 
ONGOTO-1 
WATT-1 
LOAD- 1 
SAVE 1 
DEF -1i 
POKE- 1 
PRINT—1 
CONT <1 
List-i 
CLEAR~1 
GET-1 
NEW 1 
SGN 

INT 

ARS 
USK 

FRE 
ERROF: 
FDL. 

POS 

SOR 
RIND 
LOG 
EXP 
Cos 
SIN 

TAN 
ATK 
PEEK 
LEN 
STR 
VAL 
ASC 
CHRS TR 
LEFITSTR 
RIGHTSTR 
MIDSTR 


SRE TURN 


;SCRN done special 


are for preference testing: 


DODO: 
DODS s 
DODSs 
DOD? s 
DODA: 
DODD: 
DODE: 
DOE 1: 
DOES: 
DOES s 
DOE? : 
DOEC: 
DOED: 
DOEF : 
DOF: 
DOF S: 
DOF Ss: 
DOF: 
DOFCs 
ND: 
~  OOs 
D101: 
Did4s 
Dios: 
DiOes 
DIOS: 
D1IOCs 
D1LODs 
DiidQs 
D1is: 
Diiés 
Dii7: 
DiiAs 
D1iiCcs 
D1iiFs 
DiSos 
DiZSs 
Digat 
DiSeaes 
Di2go: 
Di2cs: 
D1i2D: 
D1 303 
DiSisz 

wets 

S77: 


DLisAs 


age | 
wo Sean? abiee 


‘ae Oe? 
o% “cent ofbee ofeee 


292 
o° = “ese” obese “ose 


Pes 


ha ite 


ae os) 


pad 


a tee 

a eae® alice 
er ee | 

i 8 Yd 
et © 


“ae 


TOR TABL 


DCI 


DCI 


NEGOP—1 


fF 


EQUOP-1 


44 


POoure 1 


* END? 
"FOR? 


*“NEXT’ 


*DATA’ 


* INFUT? 


* eh. 
"itt 


*READ’ 


* (Fe * 


> TEXT? 


"PRE 
INR 


* CALL’ 


eos 8 


*HLIN? 


"VLIN? 


"HGR2? 


PH” 


"HCOLOR=? 


a sd OS Dd 


" DRAW? 


*" XDRAW? 


"HTAR® 


* HOME * 


"ROT=" 


*SCALE=" 


* SHLOAD* 


008s Geese SORES SFOES cones 


* TRACE * 


“NOTRACE® 


"NORMAL ” 


*“ INVERSE’ 


FLASH’ 


*COLOR=" 
"POP? 


*"VTAR? 


Si ut oe 


*LOMEM: ° 


*ONERR? 


"RESUME ° 


"RECALL * 


* STORE’ 


’SPEED=" 
ae Ee ON 


*SOTO* 


> RUN? 
? tr * 


"RESTORE ’ 


i! @, # 


*GOSUBR’ 


* RETURN? 
"REM? 


* STOP? 
> ON? 


"WATT? 
*LOAD* 


* SAVE * 
geo = ie 


*POKE’ 


DiICBs 
DICE: 
DiIDOs 
DADS: 

D4: 
DiID?7s 
DiID&: 
DIDE: 
DIDD: 
DIEGO: 
DIES: 
DiESs 
D1IE7: 
DIEQs 
DIEBs 
DIEEs 
DLIEF : 
DIF: 
DIFFS: 
DIFS: 
DIFFS: 
DIF: 
DIFC: 
DiFD: 
DIFEs 
DIFF: 

es 
D2ZO1: 
DLO: 
f° 063 
areas 2 
D208: 
D2ZOFs 
D20Cr 
DZOF : 
D2Zizs 
DZiSs 
D218: 
DZiks 
D2iDs 
D22Os 


oe" ES 2 
ofeee cSoce “ees? Of 


D22Zhs 
D229: 
D22Cr 
D22F 
D2Szs 

Lou 
D230 8 

Z20b% 
D23E: 
D2SF : 
D242 4 
D245 s 
Desh: 

4h 3 
D24Cs 


wha 


D4 


3 4F 


49 


AC 
Dz 
4 
45 


41 
ie 
CE 
wt) 


43 


D4 
AF 


7 54 


4k 


aoe 


C4 


*PRINT? 


“CONT? 


ge eS 


*CLEAR® 


“GET” 
“NEW? 


"TAR (? 
TO? 
7 EA? 


og Oe 


* THEN? 
> AT? 
* NOT? 


STEP? 
8g, U8 


sy 
ia? Made 


* (Fe * 


ste aime ste sone see Page 1? sese= 


D24F: A4 >422 DCI *CHRS’ 
D250: 40 45 44 
2535: 54 A4 24D DCI "LEFT" 
D255: 52 49 47 
58: 49 54 A4 2424 DCI *RIGHT#? 
D25B: 4D 49 44 
D25E: A4 2425 DCI "MIDS? 
D25F: 00 PADS BRE 
¥42 
2428 ERRMSG = x 


D260: 4E 45 38 
D263: 54 20 37 
D266: 49 34 48 
D269: 4F SS 34 
D26C: 20 46 4F 
D2Z6F: D2 S429 NxXwoFOR DCT “NEXT WITHOUT FOR’ 
D27Os S33 S9 4E 
D273: 354 41 DS 2430 SYNTXERR DCI *SYNTAX* 
D276: 32 45 34 
D279: SS S2 4E 
D27C: 20 S37 49 
D27F: 34 48 4F 
D2G2: 55 34 20 
295: 47 4F Ss 
D288: SS C2 P43l RTNwoGSR DCI “RETURN WITHOUT GOSUR’® 


D293: S54 Ci P42 QOofDATA DCT *OUT OF DATA’ 


D2ZA4: DY P4353 ILLQUAN DCT “ILLEGAL QUANTITY?’ 


D2ZAR: 4F D7 P4A34 OVELOW DCT “OVERFLOW? 


D2ZEB9: DY S435 OofhMEeM DCI *OUT OF MEMORY’ 


D2CS: 4& D4 P4536 UNDSTAT DCI xUNDEF*D STATEMENT 


D2D7: D4 +437 BADSUBS DCI *BAD SUBSCRIFT’ 


D2DEs 44 20 41 


DSOLs 
DIOS: 
DBO s 

lS? g 
DSOC: 
DSOF s 
D310: 
D3iss 
DBiés: 
DSiF9s 
D31Cs 
D3iF 3 
DS2as 


“ees? efter Yeo 3 


D328 3 
DBL: 

hd 
PRS s3 

poet 
DSSDe 
D330 : 
DASE: 
D33Es 
DB4O: 

ASS 
DB4&: 
DS49 3 
DB4C s 
D34F s 


DSGOs 
DSISt 
DS 
D3 
D3 
DSS 


¢ 8 
a 
Es 
Ge 
D2SDs 
DSSEr 
D361 
D363 


Dooce 
5béoés 
VsG7s 


2438 


24g 


AAO 


244 


2AAD 


P44 


AAA 


AAS 
Aad 


2447 
2443 


2449 
2450 
AS 


2A 


>453 
»454 
>455 
>456 
>458 
7458 


REG mARR 


DIVbyZRO 


ILLDIR 


TYPENL SS 


STRtOLNG 


FORMt aC X 


CANTCON 


UNDFUNC 


ERRIN 


INMSG 


BREAK IN 


STFORPNT 


C0080 cones arene ehepe enece 
Sense BESTE CHEE Conse Seren 


DCT 


DCT 


DOI 


DCT 


DCI 


DCI 


DCT 


DCT 


ASC 
HE xX 


ASC 
BRE. 


Hie X 


ASC 
HEX 


TSX 
INX 
TNX 


Scere enee sence sores cence 


XREDIM’ D ARRAY * 


"DIVISION EY ZERO’ 


"ILLEGAL DIRECT’ 


"TYPE MISMATCH?’ 


"STRING TOO LONG’ 


"FORMULA TOO COMPLEX®* 


KCAN? T CONTINUE ® 


XUNDEF?’ D FUNCTIONS 


? ERROR® 
O7OO 


3 IN ? 


OD 


"BREAK * 
O7O0 


yoearch through 


stack 


D260: ES 2439 INX 
D369: ES 2430 INX 
D26A: BD O1 O01 3460 FNDFOR LDA STACK+1, X 
DAasdi CF Bl 244 CMP #for 
IF: DO 21 24h2 BENE RET 
US71: AS 86 P45 LDA FORPNT+1 
D373: DO Of PASSA BENE SAMEFOR? slaken if var specified 
D375: EBD O2 O11 +465 LDA STACK+2,X Get FOR var pointer 
3276: 83 8S PASS STA FORFNT 
D37A: BD O83 OL +467 LDA STACK+3, X 
D27D: 835 86 2468 STA FORPNT+1 
DS7F: DD O38 O1 7469 SAMEFOR? CMP STACK+3,X sCompare FOR var adres 
D282: DO oO7 2470 BNE NXFOR ;Branch if not same 
D284: AS 8S 2A? A LDA FORPNT 
D286: DD O2 O1 +472 CMF STACK+2, X 
D389: FO 07 247 SS BEQ RET 
D2OB:s 8A 2474 NXFOR TXA ;Not correct FOR, 
DSSC: 18 2473 os i ; set up to look at next. 
sou: 69 12 247 & ADC #12 
DASF: AA 2A? 7 TAX 
DS9O; DO DS *478 BNE FNDFOR 
DS9e: &O 2479 RET RTS 
2480 
D393:s 20 ES D3 2481 BLTU JSR REASON sis there roam? 
D296: 85 4D 2482 STA STREND sSet top of array storage to A,Y 
DS9°@: 84 6E 24o3 STY STREND+1 
>A 54 


7488 *” Set up to move upwards LOWTR through HIGHDS-1 
"485 * to just below HIGHDS: 


o—S 24g? 
2%: 38 7498 BLTUS SEC 
48? 7>> 6 606SB.LHIGHTRsLOWTR: INDEX 
DIR: AS 96 24AQB9 LDA HIGHTR 
D29D: ES FER 24ABS SEC LOWTR 
DS9Fs GSS SE 2439 STA INDEX 
PAR? aa 
D3Als AB 2AQIO TAY 
DBA: AS 9? PAD 1 LDA HIGHTR+I 
D2A4: ES FC PAD SEC LOWTR+1 
DSAG: AA 24AGs TAX 
DSA7: EB 244 TNX 
DAA: 8S 2495 TYA 
DBAP: FO 2 PAGS BEQ NXPAG gslaken if «< 1 page 
DZARs AS FS 24Q7 LDA HIGHTR 
DSAD: 3 2499 SEC 
D3SAE: ES SE PAOD SEC INDEX 
D3BO: 85 96 eeOO STA HIGHTR 
DSBS: BO O38 ee] RCS SETEND 
D2k4: CS 97 202 DEC HIGHTR+1 
D2BG: 3 etd SEC 
204 SETEND >>> 8 609©SB.HIGHDSs; INDEXsHIGHDS 
DSB7: AS 94 ee 4 LDA HIGHDS 
DSEB9: ES SE OO 4 SEO INDEX 
D2BB: 85 94 2304 STA HIGHDS 
tae. wil) 4 << 
(BD: BO O8 eS BCS NXBYT 


VSBF: C6 9S SOO DEC HIGHDS+1 


DaCis 9O O4 ba OF A BCC NXBYT 
D3C3: Bl 96 SOB MVEYT LDA CHIGHTR).Y sNow do the move 
DSO: Fl 94 SOO STA ‘(CHIGHDS), ¥ 
D2c7s 88 7a. NABYT DEY 
— C8: DO FF Baw Bie | BNE MYVBYT 
D3CA: EL 94 PORE LDA CHIGHTR), ¥ 
DOSCCs 91 94 rol STA CHIGHDS), ¥ 
DSCE? C6 97 2eolL4 NXFAG DEC HIGHTR+1 
D3D0: Cé& 95 es Be DEC HIGHDS+1 
D2D2: CA 2ald DE: X FAnather page to move? 
DSD3:3 DO F2 eal 7 BNE NXBYT 
D3DS: 60 eolB RIS 
Bae? Oe 
DSD&Gs OF eae CHEMEM ASL ;Used by FOR, GOSUB, FRMEVL 
D3D78 69 36 bn | ADC #24 5s to make sure there is 
DSDY: BO 3S Rae Ha BCS MEMERR , room in stack. 
DSDB: 65 SE 7323 STA INDEX 
DSDD: EBA 2oe4 TSX 
DSDE: E&4 SE Yes Wb CFPX INDEX 
DSEO: FQ ZE P20 BCC MEMERR 
DSEZ: 60 pn RTS 
eae 
DSES: C4 70 soe? REASON LPY FRETOP+) ;Check that A,Y < FRETOF 
DSEG:: FO 2B eb) BCC RET2 sReturen if so. 
D3E7: DO 04 be ee | BNE RoI ;Clean shop if not. 
DSE9: CS oF Pee CMP 6 6FRETOP 
SEB: 9O 22 Pare BLO REZ 
DZED: 48 soot RSI PHA poave A,Y and TEMFi1 & TEMPS 
SEE: AZ O09 awow LOX #FAC-TEMP1I-1 
{SFOs 98 rue TYA 
.~JF i: 48 ees? RSS FHA 
D3FZ2: BS 93 PeroG LDA TEMP 1, X 
DiF4: CA 2539 DEX 
DSF S: 10 FA PAO BFL FSS 
DSF 7s 20 84 E4 +541 JSR GARBAG ;Collection time 
DiFA: Az F?7 Po4e LOX #TEMPI-FAC+I 
D3FCs: 68 Po4S RSS PLA ;Restore TEMFL & 2& and A,Y. 
D3FD: 95 9D 244 STA FAC, X 
D3FFe ES SAS INX 
D400: 20 FA 24S BMI RSS 
D402: 68 a4? FLA 
D4O38 AB 243 TAY 
D404: 68 249 FLA giles there room now? 
D405: C4 70 7SSO CRY FRETOP+1 
D4073 FO OS Babes pos BCC RET2Z rReturn if so 
D409: DO OS Pde BNE MEMERFR sMemory error if mot. 
D4OR: C8 SF Pana CMP . FRETOP 
D4ODs BO O1 pel BCS MEMERR 
D4OFs 4&0 Pow REZ RTS 
Pact 
D41iOs AS 4D eau? MEMERR LDX #O0fMEM-ERRMSG 
D4i2: 24 Ds S58 ERROR BIT ERRFLG 
D414: 10 O38 2507 BFL DOERRMSG 
D416: 4C EY FR +3540 JMFP  HANDLERR 
2G 1 


“\19: 20 FB DA 2562 DOERRMSG JSR CRDO 
D4iC: 20 SA DE rS6z ISR OUTQUES 


459 
69 


DR 


< Dé 


DB 


OO 


DS 
De 


DA 
DS 


DS 


cn cn 
nat Sot 
20 


ERLUP 


PRNTIN’ 


RESTART 


NALIN 


PERS Cones SOneE SEEEe oFtee 
donee cones eoees etene cotee 


LOX 


Seees Gnnee sence Senne cones 


Fage 16 
ERRMSG, X 


OUTDO 


ERLUF 
STEINI 
HERRIN 
# -ERRIN 
o TROUT 
CURLING 1 


RESTART 
INFRT 


CRDO 

| ie vt 
INLIN2 
TXTFTR 
TXTFTR+1 
ERRFLG 
CHRGET 


RESTART 

HEF F ,;oet direct mode flag 
CURL. TN+ 1 : = high byte of CURLIN. 
NXLLIN sBranch if line # given 
GETIN fOtherwise parse 

TRACE? rand act on command. 
TRX.FPRGEND:s VARTAR 

PRGOEND 
VARTARB 
PRGEND+ 1 
VARTAR+ 1 
LINGET :Get line # 

sand parse input 

foave index to input buffer 
816 line there now? 
;Branch if not 

sif line is there, delete it. 
(LOWTR) , ¥ 
INDEX+1 

TR. VARTABRs INDEX 
VAR TAR 

INDEX 


TR.LOWTR+1s DEST+1 
LOW TR + 1 

DEST+1 

LOWTRF 

(LOWTR),¥ 


VARTAR 
VARTAR 


D489: 85 606 S10 STA DEST 

D43E: AS 48 2O14 LDA VARTAB+I 

D483D: 69 FF 7612 ADC #$FF 

DASE: 5 of r&iS STA VARTAB+1 

Wis E35 FC 2614 SRC LOWTR+1 

V4AGS: AA 2615 TAX 

D494: 38 S16 SEC 

D495: AS 9B 7617 LDA LOWTR 

D497: ES 49 2418 SEC VARTARB 

D499: AG POL? TAY 

D4°A: BO Os Phan BCS WNL1 

D49C: ES Get INX 

D49D: C&S Sil 7h22 DEC DEST+1 

D49OF: 18 P6235 NL1 CLC 

D4A0Q0:; 638 SE 7h24 ADC INDEX 

D4Az: 9O OF 26235 ECC MVDWN 

D4A4: Cé& SF Peed DEC INDEX+1 

D4AG: 18 2627 CLC 

D4A7: Bil SE 2628 MVDWN LDA <¢INDEX),Y 3Move rest of program 

D4A9: Fil 60 2629 STA (DEST),Y :to deleted line’s place. 

D4ABR: C8 2 O30 INY 

D4ACs DO FS 2OS1 ENE MVDWN 

D4AE: ES SF 7632 INC INDEX+1 

D480: ES 61 7O0D INC DEST+1 

D4B2: CA 2634 DEX 

D4B2: DO F2 7435 BNE MYDWN 

D4B5: AD OO O28 36236 NEWLN? LDA IN :Line # alone’? 

D488: FO 38 rh37 REQ LINKSET ;Skip to LINKSET if sa. 
2638 ee? TRAY.MEMSIZ:F RETOP 

FARA: AS 7S 2638 LDA MEMSTZ 

. «BO: AF 74 74639 LDV MEMSIZ+1 

D4BE: 85 oF O38 SrA FRETOP 

D4CO: 84 70 2633 STY FRETOP+1 
2638 oe 

D4Ce2: AS 69 2 G39 LDA VARTARB ys5et up memary move to 

D4C4: SS 94 2540 STA HIGHTR sinsert new line. 

D4Cé6: 65 OF PAT ADC FNTR 

D4Ce: 8S 94 7642 STA HIGHDS 

D4CA: A4 SA 2643 LDY VARTAR+1 

D4CC: 84 97 2h44 STY HIGHTR+1 

D4CEs 90 O1 2645 BCC MVPRG 

D4D0O: Ce 545 INY 

D4Di:s 84 9S 2647 MVFRG STY HIGHDS+1 

D4D3;3 20 93 DS +649 JSF BLTU 3De the move 
2&4 >> TRAY. LINNUM: IN-2 

D4Dé6: AS SO 2649 LDA  LINNUM 

D4De: A4 Sl 7649 LDY LINNUM+1 

D4DA: BD FE O1 7649 STA IN-2 

D4DD; 8C FF O1 3649 STY: INe2+) 
2649 <<< 
2 O&SoO soe TRAY. STRENDs VARTARB 

D4EO: AS 6D 2hSO LDA STREND 

D4E2: A4 SE 7OSoO LDY STREND+1 

D4E4: 85 6° 2OSO STA VARTAR 

D4E6: 84 6A 2OSO STY VARTAB+1 

ae yO) ced 


V4E8: A4 OF POS 1 LDY FPNTR 


D4AEA: 
D4ED: 
D4EE: 
DAFO: 
Fas 


D4FS 5 
D4F 7s 
D4ArS s 
D4FE: 


D4FD: 
D4rFEs 
DSOOs: 
DSO02: 


DSO4 s 
DSO: 


DSO: 
DEOA: 


DSOC: 
DSOF : 
DSiis 
DSi2s 
P| As 
. sl és 
D317: 
DSi: 
DSA: 
DSIB: 
DSiD: 
DSIF: 
DS2is 
DS2s% 
Debs 
DSLG: 
DS2B:s 


DSEZASs 


Da2s 
DS2Exr 
DS3038 

ve He 8 
DS 353 
D337 
DISS s 


FR 


Ol 


DS 


D4 


FD 


S52 
2653 
2S54 
7655 
263545 
27657 
SOS 7 
2657 
"657 
2657 
26S? 
7638 
7659 
4&0) 
2h] 
662 
7662 


Ssoee Sales saces sesee seese 


INSRTLIN LDA 


LINE SET 


NXLINE 


PUTL INE 
FINDEOL 


INLIWN 


INLIN2 


GDBUFS 


STRIP 


Page 18 


IN-5, Y 


PnEee Sees Senee HOSES CORES 


:Iinsert new line 


(LOWTR), Y 


INSRTLIN 
SETPTRS 


TRAY. TXTTABs; INDEX 


TXTTARB 
TXTTAR+ 1 


INDEX 


INDE X+1 


+ 1 


CINDEX),Y 


PUTLINE 


TRDE. VARTAB; PRGEND 
TR. VARTAB; FRGEND 


VARTARB 
FPRGEND 


TR. VARTAB+1 s PRGEND+1 


VARTAB+ 1 
FPRGEND+1 


RESTART 


#4 


Set up links 


(INDEX), Y 


FINDEOL 


INDEX 


#O 


(INDEX), Y 


INDEX+1 


#O 


CINDEX),¥ 


INDEX 


INDEX+1 
NXL. TNE, 


HSRO 


PROMPT 


GETLN 
# SEF 


GORBUFS 


HSE 
#0) 
IN, X 


NOT 


IN-1, X 


#7 F 


IN~-1,X 


;lerminate line at EF ches 
;Set up eol marker 


sConvert to + ascii 


DSSE s 
DBGOs 
D362 3 
DSO s 
DSGS 
DBOSS s 
DSS?: 


DSSC: 
DS4D: 
DS7Os 


DS72: 


DS74: 
DS7&: 
DS7os 
SFA 
wt? GS 
DS7E? 
DS8OQs 
DSSz s 
DS84: 
DSH z 
DSSS: 
DSSaAs 
DS8C : 
DIGE : 
DSFOe 
DSS2: 
DSP4 s 
DSIG: 
DSIBs 
DSA s 
DSC 
DSYE x 
DSF 
DSAlL: 
DSAR: 
DBAS s 
DSAS s 
DSA? s 
DSAG! 

iE s 
DSADs: 


cA 
DO 
Ag 
Az 
Ao 
4) 


2d 
2? 


OQ 


On 


Ee. 
Ot) 
eA) 


Fe 


FD 


Om 


2 O95 
POPS 
2OD7 
2 O98 
299 
>700 
2FOL 
2/02 
2703 
2 FOG 
27935 
2FOS 


NOT 


INCHR 


SE TIN 


PARSE 
NXCHR 


SE 


TORK? 


IsTok? 


CMF 


STyY 


CMP 
REQ 


20008 CORSE e00es seeee esere 


RDKEY 
HS 7 F 


TXTFTR 


4 
DATAFLG 
LOCKE 
PARSE 


sFProagram protected? 


rif so, ignore input 
sand run program again. 
SETPTRS 
NEWS TT 


IN, X 
DATAFLG 
sBranch if DATA stmnt 


;franch if DATA stant 


sAlways 


“? < 
PUTIN 
SOTRNG2 
#TOR TABL -$ 100 
FAC 

# > TOR TABL ~# 100 
FAC+ 1 
#O 
PNTR 


TXTFPTR 


fSkip spaces 


sHolds current token~-$80o0 


DSAF 
DSBOs 
DSBs 
DIBA: 

BS: 
DSRS s 
DEBA: 
DSBC: 
DSBE : 
Dat is 
DSCS3: 
DSCS: 
DSt. 73 
DSCY9:s 
DSCEs 
DSCDs 
DSCE: 
DSCF : 
DSD2: 
DSDS x 
DED? : 
DSDS 
DSEDA: 
DSDC: 
DESDE: 
DSEO: 
DSE at 
DSES: 
DSESs 
f NET 3 
w JES 8 
DSEC: 
DSEE: 
DSFOs 
DSF2: 
DSF Ss 
DSF Gs 
DSF 7s 
DSF 9s 
DSFB: 
DSFD: 
DSFF s 
DSOO: 
DSO: 
DS&O4s 
DSOSs 
DSO7 s 
DSODs 
DSO: 
DSOE s 
DS10O: 
DS133 
D615: 
D&I7s 


D619: 


Ot 
Ol 


On 


Ol 


SL 97 
SRO} 
SBO TL 
2802 
BOs 
RBO4 
eRBOS 
SBOS 
2807 
eBO8 


PUT TOR 
PUTIN 


SSF 
REM? 


SHF TIN 


SHIN 


Sk IF TOE 


a) 


PLU? 


DONE 


Senet eeeee enees Hones eeene 
Stent S808 Sones SOnee sadee 


Hat 

PUT TOE 
IN+1, X 
#* N? 
SE IP TOR 
#? O° 
SEIP TOR 
Hat 
STRNG2 


DATAFLG 


#rem-" : 
NXCHR 
ENDCHR 
IN, X 
PUTIN 
ENDCHR 
PUTIN 


IN-5, ¥ 


SHE TIN 
TXTPTR 
PNTR 

(FAC), Y 


PLU? 
FAC+I 


SkK2 
(FAC). Y 
LIN 
IN, X 
PUTTOK 
IN-3, Y 


TXTFPTR+1 


#EFF 
TXTFTR 


aPeen Conne 46008 Heeee weeee 


;Does it match keyword? 


aNext che if so 
rMatech last keyword 
sokip to next token 
;Get token 


;Preferance ta ATN 


;FPreferance to TO 


yReset DATAFLG at s 


;Clear literal flag 


glLoop till literal 
sNext token 
skip over current 


FLOOD till keyword 
fLaap till keyword 
sNot keyword 
tAlways 


chr’? 
if not 


tmnt end 


dane 


keyword 


skipped 


table done 


sPoint TXTPTR at IN-1 


x Search program for line whose # is now in LINNUM.,. 


Xk On @exits 


FNDLIN 


isd 


Pi2 


GETLINE 


NOSUCH 


Reto 


NEW 


SCRTCH 


SETPTRS 


CLEAR 


CLEARC 


OPORt POOse Sears Senne eoeee 
2000 Henne cence conse corer 


LDA 
L.DX 
Ly 
STA 
ST X 
LDA 
BEQ 
INY 
INY 
L.DA 


carry 16 set if found, 
KX LOWTR points to line if found, 


TXTTAB 
TXT TAB+ 1 


LOWTR+ 1 


(LOWTR) , Y 


NOSUCH 


LL. INNUM+ 1 


sBreanch if end of program 


(LOWTR) ,¥ 


RETS 
Fle 


GETL INE 
LINNUM 


clear if not, 
to next one if not. 


slf not found 


(LOWTR),Y 


RETS 
RETS 


;Past line, 
aif found 


(LOWTR) , 


(LOWTR).¥ 


Fi 


RET S 
#O 
LOC. 


sAlways 


(TXTTAB) ,Y 


(TXTTAB) .Y 


TXTTARB 


TXT TAB+1 


#0) 


VARTAB+1 
PRGEND+ 1 
STXTPT 


#0 
RET 4 


;Carry is indeterminate 


TRAY.MEMSIZ;F RETOP 


MEMSIZ 
MEMSIZ+1 
FRETOP 
FRETOP+ 1 


TRAY. VARTABsS ARY TAR 


mot found 


DS74: 
DS7h&3 
DS&78: 


D&7A: 


D&7Cs 
D&7E: 
DSO: 
DSO3: 
DOQss 
DS&87 s 
D&G: 
DSB: 
D&S&BA: 
DSC: 
DSé8D: 
DSSE: 
DSGF : 
D&9Os 
D&92s 
DSP4 s 
DOSS: 


D&97: 


DS°Bs 
D&SOAs 
D69C: 


N 
WIE: 
D6éAQs 
DSA: 


DSA4: 


DSAS% 
DSA? : 
DSA : 
DSAB: 
D&SAD: 
DSAF : 
DSB1: 
DSE4: 
D&E? s 
DS&BA: 
DSEC s 
DS&BE: 
DSCOs 
DSC2: 
DS&M4s 


69 
SA 
6B 
éC 


&D 
SE 
A 
wed 


whe 


FS 


DA 
DS 
OX 


OC) 


DA 


STE INI 


RET4 


STXTPT 


LIST 


STRTRNG 


ENDRNG 


MAINLST 


PeRee Cnnee aenee onneD Sones 
Sense Cnten eneee Setee Srees 


. o 


VARTARB 
VARTAB+ 1 
ARY TAB 
ARY TAR+ 1 


S TREND 
STREND+1 
RESTORE 
#TEMPST 
TEMPPT 


#EF 


#0) 
OLDTEXT+1 
SUBFLG 


AD. TXTTABRs #SFF 3 TXTFTR 


TXTTAB 

HBR F 

TXTFPTR 

AD. TXTTAB+1 s #EF Fs TXTFPTR+1 

TXTTABR+1 

HERE 

TAIPTIR+1 

STRTRNG ;Line # specified’? 

STRTRNG No 

#mi nus sotart range at O if so 

STRTRNG 

#° 

RET 4 

LINGET sSet LINNUM to start of rng 

FNDLOIN sPoint LOWTR to ist line 

CHRGOT ;Rangqe specified? 

MAINLST sBranch if not 

Fmd mus 

ENDRNG 

+" sg * 

RETS 

CHRGET sUpdate TXTFTR 

LINGET ;5et LINNUM to end rng 

RE T 4 Branch if syntax err 
;Fop rtn adres 

L. I NANUM 


L.INNUM+ 1 


D7OOs 
D7O2s 
D7OS: 
D707: 
D7OP? s 
D7O8s 
POE s 
. ae 
D7iz2 
D71332 
D715 
D7i7:% 
D718: 
D71A: 
D71E: 
D71iCs 
D71E: 
D720: 
D722 
D724: 
D72Gs 
D729 3 


D720 
D72D¢e 
D72F 
D731: 


D738 


D734: 
D736: 


L372 
an 


D7 SA: 


DE 


NXALST 


LSTD’? 


LSTILIN 


LisTloor 


SENDCHR 


NCR 


LIStTeD 


GETCHR 


SC 


TOKEN’? 


LINNUM 
L.INANUM+ 1 
#1 
(LOWTR).Y 
ce CE 
ISCNTC 
CRDO 


(LOWTR) ,Y 
(LOWTR) ,¥ 
LINNUM+1 


LSTD‘? 
LINNUM 


(LOWTR),¥ 
TOKEN? 


(LOWTR) 4Y 


(LOWTR) . ¥ 
LOWTR 


DUT DO 
NEWSTT 


GC 
FAC+1 
(FAC). Y 
SENDCHR 
#ET7E 


FORFNT 


eneee oneee 


;Max end range 


sHigh byte of link 


sCheck for control C 


Get line number 


sPrint X,A 


sif over 33, do CR 


:; and tab over & 


;At end of line, get link 


sFoint to next line 


:CR and out 


aPaick up che from table 


;Branch if mot token 
;Make index to table 


roave line pointer 


Sie eats PC} 2 sees Sits Stes Se see 


D7 SCs AO DO PFOe LDY #TORTABL—$#1O00 

D7SE: 84 9D 29GS STY¥ FAC gRoimt FAC toa table 

D740: AO CF 2 Fh4 LDY #2TOR TABL—$100 

PLAS a4 GE SP GSs SPY FAC+1 

443 AO FF 2PhS LDY FSF 

D745: CA PPO? GSR re DE x glount tokens versa x 

D7472 FO O7 29S REQ PRTOK 

D7493 20 2C D7 >*969 TOKLP J&R GETCHR 

D74C: 10 FB F970 BRL TORLEF 

D74E: 30 FS 2971 EMI SEPTE 

D730: AF 20 2972 PRTOK LDA #* * yfoken found, send space 

Uroet £0 Su DE 3973 JSF OUTDO 

D7f/aas £0 2C D7 +974 TOKLUP JSR GETCHR 5 then token 

D736: 30 05 POTS BMI TOR DONE 

DO7SAs 2O SC DE +974 JSF OUTDO 

D7SDs DO FS PFT BNE TORLAUPF 

D7SF: 2O SC DR 9°78 TORDONE JSR QuUTDO g5end last chr of token 

D7G2: AS BO 2979 LDA #* ? foend end soace 

D754: DO 9 2O8O BNE LE STLOOPr :Back toa actual line 
+931 
Ped = 
»9SS 
29O4 
Foe gm ra 
PEERS 
2937 
2988 
ryoy 
Fe de 

S&S e AP EO ee7. 6 FOUR LDA BAO 

.fo8: 85 14 Pe tae SPA SURFLG Subscripts nok allowed 

D7GAs 2O 46 DA SOR J5R LET 

D76D: 20 SE DA +9o4 JSR GTFORFNT sie this FOR varl active? 

D7 708 DO Of 2993 BNE FORD Reranch if mat 

D7 72s BA 29S TXA gif goa, cancel it and 

D7733 GY OF ba a wd ADT Fer §: @ll subsequent ones. 

D7 75s AA 2OOR TAX 

D7 7s FA 2979 TXS 

D777: 68 21OOO FOR? PLA 

D77os 68 eLOod PLA 

D7793s BF OS £002 LDA #9 

D77B: 20 D&S DS 71003 JSF CHEMEM 

D77Es 20 AS - LOO 4 JSR DATAN gsPoinmt to next statement 

D7@i: 18 PEO CL f and push this acddress,. 

D782: 98 21OOS TYA 

D78S3s 65 BS 21oo? ADC TXTFTR 

D7SS: 42 21008 PHA 

D7hS: AG BS eLOOo LOA TXTPTR+ I 

D738: 69 OO eLOO ADC FO 

D7SA: 48 eo PHS 
21O Boe  FPUSH, CURLIN 

D7GR: Am 7S bap ges LDA CURLING] 

D7aD: 48 21012 PH ey 

D7SE: AR Fs REE & 8 OM LDA CURLIN 

DIPOs 48 2LOLS FHF 
21012 qo¢ 

D791: AP Ci FiOS LDA ta 


FOR places following 18 bytes on stack: 
TXTFTR 
Line mumber 
FOR variable value (S byte FF #) 
SEF s2qn 
STEFF value (3 byte) 
FORPNT €oointer ta varld) 
FOR token 


MM HM HM HM HM KH FH 


rt 
3 fed 


tit cs seen FY 03 Lu Sees 


D79S33 20 CO DE +1014 JSF SYNCHR 
D762 20 64 DD +1015 JSF CHENUM 
D7993 20 67 DD +1016 JSR FRMNUM 
D7PC: AS AS e1OL? LDA FACSGN 
| ‘GE: OF TF 71018 ORA #87F 
V7AOs 25 JE SLO? AND FAl+4 
DAZ: BS GSE 2 1O2RO BTA FAC+I 
D7A4: AY AF 219021 LDA HSTEF : 
D7AGSs AO D? Y1LO22 LDY #>STEP : 
D7AGQ: OS SE 71023 SB7PA INDEX 
D7AA: 84 SF e1O24 SPY INDEX+] 
D7AC: 40 20 DE +1025 JMR PUSHREAC sReturns to STEF 
D7AFs AG IS 21026 STEP LDA #ONE ISTEP default=1 
D7Ris AO ES 21027 LDY #>ONE 
D7EBS: 20 F9 EA 71028 JSR MOVEM 
D7RS: 20 BF OO +1029 JSR CHRGOT 
D7B9: C9 C?7 FASO CMP #sten 
D7ER: DO OS 21iOsi BENE ONESTEF 
D7BD: 20 BL OO +1032 JSR CHRGET ybteo aemecified, get it 
D7CO: 20 &7 DD 71033 JSR  FRMNUM 
D7C3: 20 82 ER +1034 ONESTEP JSRK SIGN 
D7LGe 2O 15 DE +1035 JSe  FSHFACK 

e1LORS 2e> PUSH. FORPNT 
D7C9: AE BS PEOSG LDA FORPNT+4 
D7CH:s 48 741036 FP ey 
D7CC: AS &8& 21O36 LDA FORFNT 
D7CEs 48 21O3S FHA 

21036 ee 
D7CrF: AY Bi Pa ose LDA #ftar 
AND1e 48 21O38 Fh 

- D2: BA SLOSS NEWSTT TSX rExecute new statement 

D7D3: 86 FS e1O4O GTX REMSTE 
D7DSs 20 Sa DR +1O4l JSR ISCNTC 
D7D8: AG Ra e1O42 LDA TXTRPTR 
D7DA: A4 BS 71LO4s LDY TXTFPTR+1 
D7DC: AS 7S ~1O44 LOX CURLINeD Direct mode 
D7DE: ES 2 LO4s INx 
D7DF:s FO Of 2104S REQ DIRCT sEhranch if sa 
DfEis BO 79 2 LO4? STA OLDTEXT ;Save TXTPTR if in program 
DOVES: 84 746 +1048 STY OLDTEXT+1 
D7ESs AO OO 21049 DIRCT LOY #O 
D7E7: Bi BS 2 LOBO LDA CTXTFTRD,Y sAt eal? 
D7E9: DO S37 BD Eo ret BNE COLON’? tif not, is it a colon? 
DVERs AO Of 2LORS LOY #2 ,i¢ so, i6 link O7? 
D7ED: Bi ES Palas LDA <¢TXTRPTR), ¥ 
D7EF: if 2LOS4 CLC 
D7FO: FO 34 >LOSs REO GOEND Doane if Link © 
D7Fa2: Ce LORS TINY 
D7FS: Bi BS 71037 LDA <CTXTPTR), ¥ 
D7ra?t 84 73 Se LOS8 SPA CURLIN rif mot done, save line # 
7F73 CS eLOoF INY 
D7F8s Bi Ba 21OSO LDA €TXTRFPTR), ¥ 
DYFA: BS 7S e1OSi STA CURLING 1 
O7Fr ie FG 2LOG? TYA 
ae eLOSS voee BUMP. TXTPTR sAnd set up txethote 
| FDe 65 BS 21OS3 AD TXTFPTR 
W/7FF: 8S BS e1O6S3 STA TXTFPTR 


et up for return 
co Siler 


DEOL: 
DROS sz 


OF 

O78 
DEO? s 
DOs 
DRO: 
DSOE 
DLO: 
Diss 
DSis: 
Deis 
DelAs 
Deids 
DELO s 


DB2Ss 


DESSs 
DSSS s 
NaZA: 
DB2C: 
DSZE: 
DESO: 
DES2: 
DSS sz 
DES4 s 
DeS7: 
DAA s 
(NSE 8 
ar Bal, 8 
DASE s 
DEA s 
DS44s 
DA46: 


DS4Ss 
DS4As 
D4 s 
DS4e s 
DSEOs 
DAE s 
DESSs 
D8Ss: 


DBS7: 


DBE: 
DESH s 
DBED s 
DSSF : 
DACs 
DSS: 
DRSSs 
DES? 3 


DSS? : 


340s 


oo 
fds 


24 
1 
Pids 
EG 
FO 
AP 
“aQ 
Ad 
AS 
2 
ao) 
zO 
ao 


4c 


FO 
PO 
=F 
oO) 
C9 
RO 
OF 
AR 
RY 


DRE 


ED) 
DE 
£30) 
Da 
DO? 


DO 


DO 


OC) 
DA 


DE. 


De 


"2° 


21lOSS 
21OSS 
21OGS 
P1LOS4 
2IOSS 
21LOSS 
2108? 
71068 
21089 
2LO?O 
2197) 
21LO?7S 
21lOQ7S 
2LlOoy4 
21O7S 
21O7S 
21077 
21078 
Be OF Ae 
2 LORO 
21081 


LOR? 


~LOogs 
21LOR4 
2LOSS 
2 LORS 
21LOe? 
LOBE 
2 LORS 
2LOSO 
21lOo9l 
21LOo9? 
21LO9S 
21lO94 
21095 
PLlO9S 
7LO9? 
21O9R8 
ae eR is de 4 
2i1loag 
eiliol 
21102 
21Lios 
PL Lod 
211OS 
PLLOS 
PRAMS 
21L1O8 
74 09 
2LLio 
21111 
elite 
Lia 
FALI4 
eLlilis 
71116 
elii? 


BPD 


TRACE? 


TRI 


SOE ND 
SOCMD 


SOCMD2 


NO TOR 


COLON? 


od 


SY 


RESTORE 


SE TDA 


RET 


ISCNTC 


Gk 


ERE LG? 


CTRC? 


2080s S8eee Genes SHeTe Bete 


REQ 
BED 
Ske 
RCC 
CMP 
RIS 
ASL. 
TAY 
LDA 
PHA 
LDA 
PHA 
J MP 
JMF 
CMF 
BE 
IMF 


SEC 
LDA 
SEC 
LDY 
BCS 
DEY 
STA 
STY 
RTS 


LDA 
CMP 
REQ 
RTS 
JSk 
LDX 
RIT 
RF IL. 
ut I} ad 
CMP 


BPD 
TXTFTR+1 


TROFLG 
TRI 
CURL IN+1 


race requested’? 
Reranch if not 


TRA 

He” H° 
OUTDO 
CURL. TN 
CURL IN+ I 
LINFPRT 
DUT i 
CHRGET 
GOCMD 
NEWSTT 


gokip af direct cammand 
gPraint "#" 


gand the mumber 


sGet first chr of statement 
sand start processing 
sRack far mare 


END 4 
RET 
#SOAO 
NOTOER, 
HEA 
JoY 


gA token’? 
sBRranch if not 
: Routine" tyme token? 
rSynteax errar af mot 
gif & routine token, 
gsthen place routine address 
CMDTABL +1. ¥ 
gam stack, 
CMDTABL . ¥ 


CHARGE T 
LET 
#* 3? 
TRACE? 
SYNERR 


Get next chr & RTS toa routine. 
gMust be a variable assignment 


TXT TAR 
#4 
THTTAR+1 
SE TDA 


DATE TR 
DATRTR+ 1 


KEY 
#HOS 
tak 


INCHR 
#SFF 
ERRFLG 
CTRO? 
HANDLERF 
#5 


gCanteral C attempted 


D4 
D4 


D4 


AF 
&? 


wy 


~ RO 


&2 


ar ae 


FO De 
Low FE 
Ol D° 


eL118 
eALAG 
s1ize 
yLL24 
vLAB2 


YLi2s 


2Lle4 
f1L2s 
YLi2é 
YLL27 
“1128 
be BP ote 
heey 
Pas Ge ape 
Phan? 
Be Oe Bd 
f1129 
2LLSoO 
pe oS | 


452 


Meee ofece 


21133 


eli s4 
2LLSS 
SLL sé 
BaP ae Es 
SLlise 
ae Ie aS 
21140 
Sila 
PLLSs2 
2Li4gs 
7Li4a4 


*, 


2LIi4s 
71144 
21L1l4s 
2~114é6 
P1146 
PLi4s 
“1146 
e114? 
“1143 
21149 
2“Lil4g9 
2Ll4ag 
2LLl49 
2LL4s 


*~ 


e1149 


21149 


eL149 
e1149 


~Ll49 
2PLl4ag 
2Lil4g 
2LL4ag 
2LLSeo 
2ilisd 


>1152 


ENDS 


EMD 4 


BOSTART 


CONT 


{ON 


RETS 


SAVE 


ennee SeSee Hers TEEee eEnTe 


Setey CFEES BEERS orese Cente 


RETS 
TXTPTR 
TXTFTR+1 
CURLING 1 


ENDS 

OLDTEXT 

Wc tem ed 
TRAY. CURL IN: OLLDL IN 
CURL TN 

CURL TN+ 1 

OLDLIN 

OLDLIN+ I 


#EREAK IN 
# oo RRE AK IN 
GOSTART 
FRAT ING 
RESTART 


RE TS 
#CANTCON-ERRMSG 
OLDOTEXT+14 

CON 

ERROR 

OLDTEXT 

TATPTR 

TALP IRS 

TRAY. OLDLIN: CURLIN 
OLDE TN 

OLDL IN 1 

CURL TN 

CURL IN+ 1 


SUB. PRGEND: TXTTARs LINALIM 


B.PRGENDs TXTTABs LINANUM 
FPRGEND 
TXTTAR 
1. TNL 


SE. FPRGEND+15 TXTTAR+I s LOINNUM+1 
PRGEND+ 1 
TXTTAR+ 1 
LI NANUOM+ 1 


VARTIO 
WRT TE 
PROGIO 


DECS: 
DSC9: 
DSCC s 


i," 
CF s 


DEDo: 
Dan? : 
DaD4: 


DaDs: 
DDR: 
DaDA: 


DDC s 
DSDE s 


DREOs 
DSES 3: 
DSE Ss 
DSES: 
DSEAs 
DEED: 


DAF Os: 
DSF as: 
PAE As 
. JF Gs 
DSF as 
DFA: 
Dees 
DSFE s 
DSOOs 


DYOls 
D9OS: 
DIOS: 
D9O7 


DPOF s 
DPOR: 
DPOD: 
DPOF z 


DVils 


D91iZz? 
D913: 
D9YiSs: 
DVlsés: 

ifs 
Dvriks 


De 
FE 


DS 
2 D4 


st 
teed oho 
wo gee 
“ee? 


° * 
od 


ALISS 
SLLS4 
*2300 
211356 
SLLES 
S11i56 
2LiSs 
~1156 
TLLISsS 
211iS6 
71156 
71156 
71156 
2LLSS 


1isé 


211356 


Lis? 


2Lis? 
he bw Pf 
Rae ae Ge Ff 
PLLA 
21is9 
2LLSO 
Pad 
21162 
211iés 
1164 
21165 
21L1b4 
aes 
SLlilés 
“Lids? 
2LL?7O 
ke ee are 
i ive 
21173 
21Liv4 
21175 
21i?v7s 
PALS 
Shas 
21LL7S 
2117S 
2ALTS 
PLL7& 
21176 
Op ie eg 
21176 
21176 
ee a as 
21178 
ALAS 9 
~Lleo 
71181 
-Lise 
SIlISs 
“1L1i@4 RUNL INE 


LOAD 


JN 


VARTIO 


PROGIO 


FLUIN 


Goens SeORe SeEee eeese eqeee 
e00ee Cones ones eens wusee 


JMP 
JSR 


MONREAD 
ADD. TXTTAE: LINNUMs VARTAR 


AD. TXTTARS: LINNUM: VAR TAR 
TATTARB 
LT NAMUIM 
YAR TAR 


AD. TATTAR+1 s LINNUM+1s VARTAR+ I 
TXTTAR+1 
Ld 
VAR TAR+ | 


TR. TEMPPT s LOCK 
TEMPPT 
LOCK 


PROGIO 
MONREAD 
LOC 
WJLINE, 
SETPTRS 
LINE SET 


#1. T NANUM 
#0 

ALL 

AH 
#TEMPPT 
Ak 

A 

LOCk 


TRAY. TXTTABS ALL 
TXTTAR 

TXT TAR+1 

ALL 

ALL +4 


TRAY. VARTAR: AZL 
VARTAR 

VARTAR+ I 

Ayah 

AgL +] 


CURL IN+ 1 


FIUINL INE ; Sreanch 
BSETPTRS 
CLEARC 


"Specity” 
(Vl ear 


Hy 
® varls 


if line given 
program start 


D91E: 


D921: 
DY23 


DZS: 
D928: 
D9LF 8 
D9IZE: 


DVZ2Cs 
D9ZE: 
D9Y2F : 
D9Sis 


DPS2 3 
DOSS: 
DYESS: 
DY Ag: 
DOSB: 


DY SE 3 
Sada 
. P4442 
NP4h3 
De4as 
DP4A: 
DS4ks 
DS4C: 
DAE ¢ 
DYSOs 
DISZ 
DOSS: 
DISS: 
D9YS7 8 
DIS s 
DISC « 


D9SSEs 
DVSOs 
DES: 


DES4s 
DVPShs 
NVS3 3 


ee — 


ISA: 


ou 


“at Beast 
+9 Seok 


D9 


Oo 
D0? 
D7 


DA 
D9 


DS 


21185 
PLLSS 
211g? 
21188 
21189 
PLL9O 
FLIP 
be © eo 
eee ro 
2PLige4 
ae ee Be ae 
SLIQDS 


2LIGS 


vas Fs 
2LISS 
Rae Oe Ue de 
71196 


21196 
21196 
21196 
“L196 
21196 
21197 


me Ys 


‘1198 
oe i sae a 
21200 
ee rs 6 
L202 
eL2ZOs 
e12o4 
21208 
2L ZOOS 
Pee 
21208 
21209 
ee ie 
pe we Be! 
ee ea a 
PLAZA 
2Il2Zi4 
2121S 
YLaelé 
be ae a 
Y~12Z1a 
Phen t 


P1220 


+1220 
21220 
s1ZBZ0 
e12B20 
o alice afeee 
>122 
+122! 

oles ofeve 
>1221 


eties ofies afiee 


Fm, nae hae er a 
b, -alhes: Soe Man? 


K 
K 
K 
K 
x 


GOS 


aoe Seen 


GOL 


GOT 


Od 


Oe 


RET 


° 


a 


line number 


GOSUE 


WE 


INE 


QO 


- 


token 


LDA 
JSF 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
RHE 
LDA 
PHA 
JER 
JSR 
JMF 


J&k 
Jok 
LDA 
CMF 
RCS 
TYA 
SEC 
ADC 
LOX 
RCC 
INX 
RCS 
LDA 
L.DXx 
Jor 
RCC 


LDA 
SEC 
SrA 


LDA 
SE 
ora 


RTS 


i ee 


GOL INE 


#3 


CHEMEM 
PUSH. TXTPTR 


TRIP TRSI 


TXTFPTR 


P08 OREGe Seer Sones anes 
SO0ee COSC sense Seeee soene 


spoeci fied 


GOSUB leaves following on stack: 
Return address 
TXTPTR 


(NEWSTT ) 


PUSH, CURLIN 


CURL IN+ 1 


CURLIN 


#oosub 


CHROOT 


GOTO 


NEWS TT 


LINGET 


REMN 


CURL IN+ I 
LI NANUIM+ 1 


Ol 


TXTFETR 


TXTPTR+1 


OZ 


BO2 


TXTTAER 


TXTTAR+ 1 


Pid 


UNDER 


rGet GOTO line 
gFoint Y toa eal 
gis current page < GOTO paqe’? 
phearch fram prog start if mat 
:Otherwice search from next line 


sGet program heqinnming 


shearch for GOTO line 
gErrar af mat there 
sFoint TXTPTR to GOTO line 


SE, LOWTR: #1: TXTPTR 


L_OWTR 
+ 1 


TATFETR 


SE,LOWTR+13#O: TXTPTR+1 
LOWTR+ 4 


HO) 


TATPTR+I 


Return to NEWSTT or GOSLIE 


DPA: 


DAR s 
DPAS s 
DEAS s 
DPA: 
DOAA s 
DACs 
DAE s 
DNSROs 
DOR? : 
DFR: 
DORS:s 
DoRAs 
DORA: 
DIOBC: 
DORE : 
DOERF sy 
DCL s 


IS s 


DE: 


DY 


4 oO 
r1Ll2e 
Oe Bea 


ti ee 


eee 3 


Pe aaa 
21228 


P1l2ee 


230 


Po akice “ove? Mae 
eL2sl 
YI 232 


4 Sore 


alee “ve0* “eo” 


etne Yona? 


ony ho ES 
towed 


21236 
BD OOK | 
21238 
21239 
PLiSag 
e124 
siZS4s? 
21243 
ei sad 
e1i2S4s 
2124s 
2Li 24s 
S1I245 
2SiZ4as 
71245 
e1LZ4s 
21247 
1248 
21249 
e1LE49 
ei 249 
SL Z4S 
e1 S49 
e1Z4ag 


21250 


ehes rose - 


21251 
21252 


2I2Ss 


rU2E4 


+ PRS 


have Wwe Yood 


PLAS 


212a7 


é 


rizoe 
21259 
SL 2ho 
21261 
Pi gZeZ 
PL eos 
SL 264 
~1Z26S 
~1266 
71267 
~1268 
71269 
raerG 


POP 


UNDERR 


GSYNER 


RE TURN 


DATA 
ADDON 


RD 
RE TS 


DATAN 


RE MN 


RMI 


26088 OOnte entee Sees a8eee 


FORPNT : shoud 
STFORPNT 4 
#FoOsuG 
RE TURN 
#e TNwoaGokR-RRRMSG 
2 greake 
HUNDETAT-EREMSG 
ERROR 


SYNERR 


Hoop Kis 
PULLS 
CURL. TN 


CURL. IN+ 1 
PULL. TXTPTR sand 
TXTPTR 

THTPTR+14 


DATAN 


RUMP. TXTPTR 
TXTPTR 
TXTPTR 

BPD 
TXTPTR+1 


"a? Get offset 
rr tPake 

HO : " te eo] 
CHARAC 

HO 

EMDCHR 
ENDCHR 
CHARAC 
CHARAC 
ENDCHR 
CTATP IR] « ¥ 
FRETS 
ENDCHR 
FRETS 


alla 
RM 
FEM I 


d be 


sBranch if a FOF 
sRetrieve line # 


TATRPTR 


in. ¥ =o 


anly. 


FORPNT + 1 


glast GOSUR found’? 


Move to next statement 


ec 


Bugs 
flo cancel FOR/NEXT in sub 


a 


giraick to count quote marity 


DICS: 
DICE: 
D°C7: 


DCB: 


vICD s 
D9CC: 
D9CF s 
DYDD: 
DDS: 
DDS 3 
DDS s 
DODA: 
DYDC : 
D?DF : 


D9E1s 
DSE4: 
DFESG: 
DOSES: 


DIEC? 
D9EF 
DOF Os 
DOF 2: 
DOF 4: 


DAQA: 
DAH: 


DAO s 
DAOE s 
DATO: 
DALZ: 
DAL4: 
DAIS: 
DAEs: 
DALLA: 
DACs 
DALE: 


DAL s 


ear? 

2.85 
oe 

Pay 


VALE s 


Ay 
OF 
a 
OF 


=i) 


if 
iT} 


DD 
OO 


DE 


DY 


it) 


D9 
DS 


Ed 


DS 
OC) 


DA 


Be a ds | 
eet £ 
~1275 
21274 
Fhe 
71276 
ot ae a a 
712/33 
Pigs? 
L280 
ricei 
*1282 
71283 
21284 
71285 
2128S 
21i2Ze?’ 
21LE88 
be Og oe 
2~1290 
r1Zz7i 
~1Z292 
ei“ave 
s1LB94 
212938 
21296 
riZo7 
71278 
PAZTT 
3) BOO 


21308 
21309 
21319 
213i 
2LSi2 
PLSis 
21314 
PISS 
FLlSilé 
21317 
21318 
Pha 
21320 
e321 


*eae? oface ofere 


PIS2ZS 


21324 
am ms 


oot 


oye ony 


eo 


PULLS 


LP 


TRUE? 


REM 


TF TRUE 


J GOCMD 


QONGOTO 


GOTO? 


ONCNT 


NX NUM 


ee 


MP 
Jink 
JSk 
CMF 
REQ 
PLF 
RTS 


LOX 
TX 
Sx 
BCS 
SC 
STA 
LDA 
STA 
a 
BCS 


LDA 
ASL. 
ROL 
ASL 


FRMEVL 
CHRGOT 
#qate 
TRUE? 
#then 
SYNCHR 
FAL 

TE TRUE 
REMN 
ADDON 


CHRGEOT 
JGOCMD 
GOTO 
BOCMD 


GETRYT 


#oosiub 
ONCNT 
Hooke 
GSYNER 
FA +4 
NX NUM 


GOCMD2 
CHRGET 
LINGET 
“? 
ONCNT 


#O 

LT MNUIM 
LI NAUIM+ 7 
RE TS 
HO? J 
CHARAC 
LINNUM+ 1 
INDEX 
HEPAS ITO 
GOTO? 


LINN 


INDEX 


~ oe 
e0eee Sente sates seeke cence 


sCondition true ar 
Branch if true 
rokip rest of line 
:Always taken 


false? 


sCommand ar mumber ? 
sBranch if command 
:Goa af # 


;Get snoecified # in FAC+4 


sCounted ta right one yet? 


:No, keen looking 
:Yes, retrieve cmd 


gamd qa. 


sNot found, so igqmare 


FASC # to HEX address 
sim LINNUM. 


tLine # too large’? 

rGet error if sa. 

(Note that GOTO xwxxxxy 

t Where HHHHH Ls hetweer 

s 43776 and 44031] causes 

yo a jump to $22D9. GOSUBs etc 
2 jump to other locations.) 


DAZS: 
DALE s 
DAZA: 
an 

202% 
DAZE: 
DAZO: 


DASZ: 
DAA4 


DALES s 
DASE: 
DASA: 


DASC: 
DASE 3 
DAA s 
DAAZ : 


DAS 3 
DAAG s 
DAEs 
DADs 
DAAF : 


DABS s 
DAE s 
DABS: 


SS 


DASE s 
DASE s 
DAS s 
DABD: 
DAGO s 
DASZ: 
DASA x 
DASS: 
DASH s 
DASE: 
DAGDs 
DASF : 
DAI: 
DAZ: 
DA? 4s 
DATS: 
DAT? & 
DAY As 
DAY ER: 
DADs 
DATF s 
DAI s 
DAES z 
DAES s 

1S 3 
DAE s 


OO 
DA 


DF 


DE 


DD 


DD 


oe 
oa | 


fe Sees” “eee” 


NXDIG 


5 a) 


ot 


LE TREAL 


> be eo 


PUTS TR 


S000 Penes caene Seeee veree 
S086e G8tCe vaeet Shene sores 


JER 
J MF 


JSR 
BrA 
ory 
LDA 


JSk 


LDA 
RHA 
LDA 
RHA 


ony a 


Pepe Ne Serene 


INDE X 

LINANUM 

LT NNUM 

AD. INDEX glLINNUM+1 sl INNUM+1 
INDEX 

LINANUM+ 1 

LINNUM+ 1 


LT NAUIM 

LT NANUIM+ 1 

AD. L_TNNUM:s CHARAC sl TNNUM 
L INA 

CHARAC 

LINANUM 


NXDIG 
L OINANUM+ 1 
CHRGET 
ASCHE x 


PT RGE T 

EP OREN T 
FORPN T+ 1 
#ecial 
SYNCH 
PUSH. VAL TYP 
VAL TYP + 1 


VAL TYP 


PRME VL 


CHE VAL 
LETSTR sif a string 
LETREAL 
RIND E 

GY INT 

HO 

¥VPNT 
(FORPNT). ¥ 


sinteqer var 


VENT +1 
(FORPNT) , ¥ 


SE TFOR 


#2 
(VPNT) 4 ¥ 
FRETOP +4 
COPSTR 
DESC? 


sBranch if mot in str space 


(VPNT),Y 
PRE TOP 


4 “ 
s 


mimasamo: PP aygge CAT smemenamc 


DADA: FO OF idan? BCC COPSTR 
DAC: AS Al 71373 DESC? LDY VPNT+I1 sDescriptor exist? 
DASE: (4 64 ei ays CePY VARTAR+ 1 
DAPO: FO O8 24G7 0 BLL COPSTR 
P22 DO OD 71376 BNE NEWDESC 
DAGS4: AE AO PLST7 LDA VENT 
DAS: CA 49 21378 CMF VARTAR 
DASE: BO OF YLar? BCS NEWDESC 
DATA: A AO “1380 COPSTR LDA VENT 
DAG: 84 Al 2 Se4 _LDY VPNT+4 
DASE: 40 B7 DA F1Itae JMP COPY 
DAAL: AO OO CLS NEWDESC LDY #o 
DAASs BL Ao 21384 LDA (VPNT),¥ 
DAAS: 2O DE ES +1 Sas JSR STRINI 
eI Sas 23> TRAY. DSCFTR: STRNGI 
DAAB: AS ac ei Ses LDA DSCriTrR 
DAAAs AF SD 7138s LDY DSCRPTR+1 
DAAC: BS AR eI SRS STA STRNGI 
DAAEs 84 Ac 71386 STY STRNGI+1 
“1386 << 4 
DARO: 20 D4 ER +1 Rey JSR MOVINS 
DAES: AS 9D 71LS8e LDA #FAC 
DARS: AO OO >1389 LDY #0 
DART: Sh 8c PIiSoO: COPY STA DSCETR 
DAR?:s 84 ap ra Gite | STY DSCPTR+1 
DABB: 2O 35 ES 312392 JSR FRETMS 
DARE: AO OO PLS Ss LDY #O 
DACO: EL ae be BS be LDA <(DSCrTR), ¥ 
DAC2: 971 8S Pere STA CFORPNT), ¥ 
“NC4: CE ee PR af INY 
~ACS: Bi ec tao 70 LDA <DSCPTR), Y 
DAC7: 91 85 PISIS STAG (FORPNT),¥ 
DACP: CS 21397 INY 
DACA: BL &e ise? LDA ({(DSCFTR), ¥ 
DACC: Fl S&S eL4oo STA (¢(FORPNT), ¥ 
DACE:s 60 tL 4oy RTS 
1402 
DACK: 20 2D DEB +1403 PROETRING JSR STREET 
DADS: 2O BY OO +1404 Je CHRGOT 
DADS: FO 2 21I408 PRINT REQ CRDO 
DADs FO 29 71404 PRINTS BEQ RETIO 
DADS: 9 CoO 21407 CMF #thab 
DADE: FO 39 71408 REQ TARWHERE 
DADD: C9 CS 71409 CMP  #eoe 
DADF: 18 71410 ELC 
DAEOs FO 34 7i4il BEOQ TARWHERE 
DAEZ: CY 2C PI4i2 CMF #*, 
DAE4: 18 ei4is a tM puroose to this 
DAES: FO 1C e1l4i4 BEG TAR 
DAE: 9 3B kTI4LS CMP #* 3? 
DAESs FO 44 ‘1416 REQ NEXTCHF: 
DAERs 20 7ER DD +1417 JSR FRMEVL. 
DAEE: 24 11 21418 BRIT VALTYF 
DAFO: 20 DD 2L4ig BMT PFPRSTRING 
DOF2: 20 34 ED 2i4e2o JSR FOUT 
POs 20 E7 ES +1421 JER  STRLIT 
DAF: 40 CF DA F142 UMF PROSTRING 


re 


a 


~~ Py 


DAF Es 
DAD s 
oe 


Oe: 


DROS s 
DROS s 
DRO? x 
DROS s 
DBO s 
DBO 3 
DRLOs 
DRS s 
DRL4s: 
DELS: 
DB17: 
DRA: 
DBIC: 
DBIE: 
DB21: 
DES2 : 
DR24 
DRS: 
DRS Ss 
DRESS: 
DESA sg 
DRE s 


DBS2: 
DESI s 
DRESS: 
DESA 3 
DEAD: 
DEG s 
DRA Ls 
DEAS s 
DRA » 
DEAS : 
DRA? g 
DEAS s 
DEAC s 
DE4Ds: 
DEAF s 
DEEL s 
DRE z 


DRE? 3 
DRESS s 
NERY y 
DeSCs 


fy? 
rd 
myo? 
OF 


iS a 
BO 


DA 


Ed 


DE 


fe) 
DA 
DE 


ES 


fds 


DR 


DE 
DE 


CRDO 


& NEGATE 


RETIO 


TAR 


NXCLM 


TARWHERE 


SPC? 


TARITT 
NXSPC 


NE x TCHR 


DOSE 


STROUT 
STRERT 


NX CHAR 


* Notes 
¥ Output to lower 


Senne oEERe SReEe Sheen woree 
Sebe S005 BEbSe eeeee cones 


a 


* by NORMAL, 


QUT oF 


QUTOUES 


OUTDO 


LDA 
Hi X 
LDA 
DRA 


243, 352 


INVERSE, 


Se0eP COnE SeOne HeEEE cose 
C80e CERES seene FOOSE Coons 


oe 


rihis should be #20 
CRDO 
HILO 


lH 
NE X TCHR 


STRYTC 
He")? 
Sri? 
SY NERR 
TABTT i+ 


BFC 


:eranch 


lH 
MEX TCHR: 


DOSFC 
CHRGE T 
PRINT 
OUTSF 
NXSPC 
Hs Se ef 
PREPAC 


$0) 


RETIO 
(INDEX), ¥ 
OUTDO 


#ED 

NX CHAR 
NEGATE 

NX CHAR 
($20 


Case. 
car 


e00* % cov" fee 


a * 
as 

-* a 
#HEAO 


yrake 


im @F3) will convert 
This cam be cancelled 
FLASH or FOKE 243,00, 


Chase) 


DBESE: C9 AO 271480 CMP #" Cantral chr? 
DESO: FO O28 ~148i BLT SEND Skip af so 
DB621 O05 FS 21L4e2 ORA ORMASK Convert to flash ar no change 
PROE4: 209 ED FD 21483 SEND Jere COUT 
S73 29 7F “L494 AND #e7F 
DRSSs 48 21L4e5 FHA 
DESA: AS Fd 14a LDA SPEEDZ 
DBé6C: 20 AB FC +1497 J&R  MONWATT 
DESFs 68 21483 PA 
DR7Os 60 Z1L4eRg RIS 
2L4Ageg 
DB7i: AS 15 21491 INPUTERR LDGS INFUTFLG 
DB73:3 FO 12 21492 REQ RESPERR gfaken af INPUT 
DEVS: SO oO4 21493 RMI READERR flaken if READ 
DE? 7s AO FF 2 L494 LDY BFF gFram a GET 
DE?S: DO Of 2L4oS BENE ERLIN 
DE7E:s AS YER 7149S READERR LDA DATLIN 
DEYD: A ?7C 2149? LDY DATLING1 
DR?F: 8S 7S 21498 ERLIN STA CURLIN 
DEGis 84 74 LASS STY CURLING 
DRS: 40 CF DE +1iboo UMP S&YNERR 
DReES: 4& 2LlSOL INPERR PLA 
DESY: 24 DoS 21iSO2 RESPERR BIT ERRFLG 
DEES: 1O OF PIROS BRL DOREENT 
DESER: Az FE 2 LSO4 LOX #8FE sRad responce 
DRED: 4C EY F2 +1505 JUMP HANDLER 
DRO: AS EF 21EO06 DOREENT LDA #REENT 
DRGs AO DC Lows LDY #>°REENT 
DES4: 20 BA DE Fito Joe STROUT 
. A L309 ao?) 6 TRAY*OLDITEXTS TATE IR 
~AF7s AG 79 ae es Oke LDS OLDTEXT 
DRE?: Ad PA 21509 LDY ULATeAT et 
DESB: 8&5 ES PL aOF STA TXTRPTR 
DBYD: 84 RY 21309 SY TATIFURYS 
+1509 qe 
DESF: 640 21IS10 RTS 
eiois 
DBAO: 20 06 ES 31512 GET JSR ERRDIF: 
DRAS: AB Ol 2IGLS LOX #INGI y5imulate input 
DEAS: AQ O2 eIS14 LDY #2IN+] 
DRA: AD OO rigaw LDA #O 
DRAG: 8D O1 O2 FiSié BA INT 
DEAC:s AG 40 21517 LDA #40 gSetougn INFUTFLG 
DEAE: 2O ER DRE FiSia JSk  MAININE 
DREIs 60 Ro tsi Ge RTS 
21520 
Der2! CY Za eiS2et INPUT CMF gen? sCheck far anptioanal 
DRE4: DO OF P1222 BNE @OLT 2input string, 
DRESS: 2O 81 DE Fits JSF STRTXT 
DRES: AG AE P1S2 LDA Hes? 
DBBB: 20 CO DE 21525 JeR SYNCH 
DBBE: 20 3D DB 21326 JSR STRERT 
DBCi: 4€C C? DE 31527 JMP DIR? 
DEC4: 20 SA DE +is2e OUT JSR QUTOQUES ING string, print “?" 
MEC7s 20 06 ES 21529 DIR? JSR ERRDIR 
ICA: AF 2C 2130 LDA #*,? 
DBCC:s SD FF O1 +3153 STA  IN-d 


DECF : 
DED? : 
DEEDS s 


DED? : 


Ds 


DREDC: 
DEDF s 
DBE? : 
DRE 4 s 
DRBES: 
DRE s 
DBES: 
DRER: 
DRED: 
DREF s 
DEF 1: 
DEF 4 s 
DEF Ss 


DEF SE s 
DRE A: 
DEFC: 
DBFE: 


DCOOs 
DCO? s: 
DOO s 
(Nt é 3 


DCO: 
DCOR: 
DOD s 
DCOF 3 
DCii: 
DCi4s 
DCLG: 
DCIS: 
DCIB: 
DCAD: 


DCIF: 
DC21is 
DCL 4 
pCa fs 
DC29: 
DCZE: 
DCZEs 
DAO s 
DC32: 
DCA4 s 
DCOS6: 
DCS? s 
DOS: 

BBs 
DC3D: 


Dos 


OC) 


DE 


; DE 


OTe) 


*e, , hedae iar dd 
21S SS 


‘ST ERO 


ae ed 


2USS4 
2LS35 


~1TB36 


PLSS7 
21338 
2 1SAa9 
I S40 
21541 
2LEB42 
21IS4s 
71544 
71545 
TIS4S 
2LS47 
71B49 
eLE49 
be ee pel 
Pi Sot 
oe ee ae | 
27135 


D151 


ean rae | 
PiSSl 
2ISS2 


es ain 


eed teed afte 


+1552 


teed ofbes 


LSS2 


weed ‘ed oan 


re aban 


Seed teed oflee 


2ISS2 


+1853 


toad toad tact 


2LSS4 
71555 
YLiS56 
-iSo/ 
~iSSea 
>i839 
eLE6O 
~iS6l 
~1562 
S1IS6s 
213464 
71865 
71566 
715467 
21LERS8 
*13E49 
*1370 
PiS7i 
STS7 2 
2173 
2LS74 
2135/0 
21S76& 
rics 
>13578 


NAIN 


READ 


A 


MAIN INE 


NX INF 


SNDQ’? 


STXP 


INSTART 


O80Se OPESe CERES BEERS Cates 
SPOee CESEe eOEES SE0e BECes 


a 
ERP LG? 


DOUTOUES 
INL IN 
DATFTR 
DATE TR+ 1 
HEOR 

20 

#O 
INFUTFLG 
INF TR 
INP TR+ 1 
PTRGET 
FOREN T 
FORPNT +1 


erece epee senee 
eeeee eeere seoee 


gContral C? 


Trick to branch to MAININE 


TRAY. TXTPTR: TXPSV 


TAIPIR 
TAIP TR€) 
TXPSV 
TXPSV+1 


TRAY. INP TR: TXTPTR 


INF TR 
INF TR+1 
bea toed 
TXTPTR+1I 


CHRGOT 
INSTART 
INPUTFLG 


FINDATA 
QUTOUES 
NXIN 
TXTFTR 
TRAP Tad 
CHRGET 
VAL TYP 
NUMIN 
INPUTFLG 
PUTCHR 


TATP IS 
#O) 

CHARAC 
PENCHR 


geranch if not GET 


;GET it 


sRranch if not GET 


DOSF s 
DC41: 
DC4AS 3 
DEA 
a? x 
DITAS s 
DC4AE s 
DCA: 
DC4E s 
DCEO gs 
DCE2: 2 
DCS4 s 
DCS6: 
DCS? s 
DISA s 
DCSD s 
DCSO: 
DC&3: 
DCS s 
DCS? s 
DCS? s 
DCSA: 
DCSD: 
DCO&F : 
DC723 
DC7Ss 
Ly 74 
DC79: 
DC7E: 
a. 
. £7 EI 
DCHO s 
DCR2: 
DC s 


DCS: 
DCRR: 
DCA: 
DCC: 


DCSE: 
DCY1i: 
DCOS: 
DIPS 2 
DCI9: 
DCIB: 
DC9YD: 


DAO s 
DCAD: 


OT) 


DE 


£0) 


DE 
DE 


DE 


> DY 


Patt ? 
2LS8O 
eisel 


2LSB2 


2128s 
2184 
2isas 
eA SRS 
ee? 
ei S88 
e189 
P1590 
21S 


“1592 
Piatto 
ei 
715 


bP ie a 


21597 
21 S98 
De re be ae 
21600 
2160] 
P1602? 
21603 
71604 


21605 


2106 
21607 
71608 
21608 
271608 


21 60d 
21608 
21608 
1609 
PLb6O9 
21609 
21 S09 


21609 
21609 
21610 


71611 
71612 
21613 
"L614 
216is 
“1416 
21617 
e1S18 
21619 
PL S2O 
#1loel 

21 S22 
S1625 
"L624 
21623 


PUTOHR 


PENCHR 


Pe CHS 


MUM TN 


DATIN 


WN X 


SWPNT 


INF IN 


FINDATA 


#0908 26088 C0nne Sense stone 


J&k 
TMY 
TAX 
BNE 
LOX 
INY 
LDA 
BEG 


Page 37 
CHARAC 
af ite 
PE CHR 
a” 2 
CHARAC 
ee 


EN DCHF 
TATPTR 
TATP IR 
OD 

SePF 


pSkip quote, if there 


STRLT2 
POINT 
PUTS TR 
WN X 


TN 
INFF IN 


geraom DATA’? 
sEranch aif sea 


FIN 

VAL TYP +1 
Ree 
CHRGOT 
SWPNT 


(Get FF mumber at TXTPNT 


gPut in varl 


;Rranch if input done? 
;Comma in inmout? 


INFUTERR gNothing @lse will da 
TRAY. TATPTRs INF TR 

TXTPTR 

TRIPT RHI 

INF TR 

INF TR+ 4 


TRAY. TXPSVs TXTPTR 
TXPSYV 

TXRSV+] 

TXIFTR 

TXTPTR+1 


CHRGOT 

TNE DONE rif statement not done 
CHECOM : 
NX INF 
INPUTFLG 
DATIN 
INFERR 


Get mext input 


DATAN tGet offset to next 
sind af line’? 

NXS sBranch if "“s" 

#0of DATA-ERRMSGS 


CTXTPTR), 
GERR 


Yo send of program? 
.error if so 


program mush have comma. 


statement 


*1LS626 INY | 
RS Y1lé2? LDA ‘CTXTFPTR),Y :Get next line # 
3 7B 71628 STA DATLIN 
271629 INY 
Rg ~1630 LDA <CTXTRPTR),Y 
21és TINY 
7C Tieoe BPA DATLINGI 
Ra -14Ss. NAS LOA CTXTRFTR),.Y sGet ist token of statement 
21634 TAX | 
98 DY 716355 JoR ADDON sUpdate TXTFTR 
i FL G3é CrX t#data 
DD #1637 ENE FINDATA gloano tild DATA found 
ae DC 716368 | UMP INSTART gFound DATA token 
a ee 21639 INPDONE LDA INFTR GN more inpuh requested 
Be) 2 LS64o LDY INEFTR+] 
iS 21641 LDX INPUTFLG 
Oo 21642 RPL NTD 
os DS +16s4s JMF SETDA gif fram DATA 
Oo 21644 NTD LDY #O 
FF 21645 LDA CINFTRD,.Y 3sExtra input? 
oO? e164& REQ RETIil 
DF 71647 LDA #EXTG ;Srror if so 
DC 71648 LDY #SEXIG 
; 2h DR +1649 UMP &TROUT 
21630 RETII RTS 
pee aro e | 
4S Se 
wie 4d 
AQ 47 
AP Sie 
wt AA Fig@oe EAIG AG? "PEXTRA ITGNORED’ 
On 716035 Mme Az ODIO 
-L6a4 
me 4S 
= 4 S4 
= S2 2ISSS REENT ASC “"PREENTER? 
Oe) S164 HEX ODOo 
271657 
iy 44 21638 NEXT BNE VARNXT geranch if var specified 
Oe) >1639 LDY #0 
Oo 21640 REQ S&KRY 
Eo DF +1461 VARNXT Jor -PYRGET gFaind var pointer 
35 83 21662 SERV STA FORPNT 
aS 1463 STY FORPNT+1 
45 D3 +1664 Jok GTFORPNT sFand FOR data an stack 
4 ~1l6és BEQ GOTFOR 
Oe *1L646 LDX #NXwoFOR-ERRMSG 
&9 21lS67 GERR BEC JERROR rAlways 
21668 GOTFOR TxS get stack ptr toe point 
2L&?7O INX 
PALOTO INX 
21670 INX 
2LS7O INX 
PLOT a TXA flow byte of ades of STEP value 
21 S74 INX 
*1iS?4 INX 


7174 TNX 


DDG: 
DDD: 
DDLA: 
DPR: 

iD: 
LDIF: 
DD22 3: 
DD23: 
DDS: 
DDLEs 
DDOZA: 
DDC: 
DD2F : 
DDS2: 
DDA4 s 
DOA? 3 
DOA: 
DOSS: 
DDSCs 
DDSEs 
DDL s 
DD4Rs 
DD44: 
OD4a: 
OD4R: 
DD4D 3 
DDS s 
DDS2s 
DDS: 
POQREES 3 
. ASB 
DDE s 
DDSAs 
DDED s 
DDSF 3 
DDS1s 
DDS4: 


DDS? : 
DDGSAs 
DDSEs 
DDSC s 
DDSDs 
DDSF s 
DD? 1: 
DD7S3 
DD? 43 
DD? 4s 
DDR: 


me 


Ol 


c* 
ER 


Sot 


4 


4 


Od 


Oi 


id 


D? 


Oe) 


o1e) 


° DC 


DD 


D4 


21S 74 
eLS?74 
rile 7/4 
1676 
21677 
-1678 
21679 
*LS680O 
“L46S) 
P1602 
-L683 
~LSE4 
7168S 
"1685 
21687 
“1688 
216Sae 
71690 
7149) 
“1692 
71693 
SL S94 
214695 
SLES 
21697 
~LS?R 
21699 
17 OO 
21 ?od 
ei von 
2eL7Os 
21 POY 
217/05 
ei 7O& 
a se es 
21708 
Par eehe, 
PLS EW 
os ae 
willie 
PLP kD 
eivi4 
rat iS 
21714 
xis is 
71718 
S1i?7isS 
iP eo 
PRv EL 


21722 


Lod 


O0Gre ennse Senet caren eneee 


INX 
INX 
INX 
PX 
LDY 
Jk 
TSX 
LOS 
SrA 
LDA 
LDY 
Jk 
JSR 
ROY 
Jr 
TSX 
SEC 
Sel 
REQ 


GONEWST JMF 
E NDF OF: 


PRMNUM 
CHENUM 


CHES TR BEC 


CHEV AL Bit 
EMT 
BCS 
MEtiZ RTS 
LV2 BCS 
NISMICH LDX 
JERROR JMR 
PUT 
KX KK KKK KKK KK KE 
¥ 
Bs Applegat t 
¥ 


¥ Coapywrite Apole Commuter, 


KX Imc. and Mic 


Paacye 39) ssmomomo 

DEST flow byte ades of FOR var 
+f 

MOVE M sSTEP to FAC 

STACK +9, X 

FACSGN 

PE ORPNT 

FORPNT +1 

FADD fACGd te FOR value 
SETFOR gRPut mew value back 
#4 

P COMP 2 sCompare to end value 


STACK+9, X 


ENDFOR gGranch if FOR complete 
SACK +$F,X% sOtherwise set up 
CURL. TN 3; FOR line # 
STACK +810, X 
CURL IN+ 1 
STACK +812.,X% 3 and set TXTPTR to just 
TAIFTIR ; after FOR statement 
STACK +811, X 
TXTPTR+1 
NEWEST T 
#614 ;Clarrey 1s set 
sCancel FOR by bumping 
; Shack pointer by #12. 

CHRGOT 
e"* rAanather var in NEXT? 
GONEWST 
CHRGET 
VARIN XT gDoes not return 
PRME VL 
“4 sDummy far skin 
VAL TYF 
CV2 
MISMTCH 
RETIZ 
#TYPEMISS-ERRMSG 
mR CORS 
APSOFT IT 
KKK KEK KKK KK KEKE 

¥ 

- Part It Bs 

* 

K 
roeort, inc.: * 


Yalue 


bs K¥omot for publication ar 
28 % distribution, 
Rake K 
ae eid KRRRKKK KKK KEK KKK KKK KKK EK KEK 


foot, 
fount 
% 


Pointer locating, 
& String Handlina. 


*K 
bs 
K 
* 
3 
Formula evaluation, ¥ 
*% 
bs 
x 
$DD7E -— $E79F ¥ 

* 

* 


K 
K 
K 
2135 ; 
¥ 
K 
* 


KKK ERK KKK KKK ERK KKK KEK KKK ERE 


Pek ¥ Main formula evalutation routine. 
raZ *¥ On entry TXTPTR points at ist chr of formula. 


BF at FRMEVL vee DECK. TXTPTR 
DD7E: AG BS Pa LOX TXTPTR 
DD?7Ds DO O2 Pa BNE ND 
DD/7F: CS BY eas DEC TXTPTR+! 
DDei: C& BR Pa ND DEC TXTFTR 


DDS: AB OO ie 4 LDX #O 
DODSS: 24 rae DFR #24 gTrick to skip 
DDS: 48 2 FEVLOOP FHA 
DDa?:s 8A ef TXA 
DDRe: 48 a PHA 
DDae: AY O1 Be LDA Hi 
DDekR:s 2O DS DS eo JSR CHEMEM 
PNGE: 20 60 DE +31 JSR GETVAL 
. LIT AP Ad Poe LDA #O 
DDV3: 83 389 p STA CPRTYP 
DDSS: 20 BP OO 234 FRMEVL2 JSR CHROOT 
DDVA: 22 > ow CFPROF SEC 
DDS: ES CF +36 Skat ##3CF 4 token 
DDSB: 9O 17 Re Ys BCC CHKTYP 
DD?D: CY O53 eS CMP FS ;ar =, 
DDOF: BO 15 ooo RGE CHETYF 
DDALs CO OF PAO CMF #1 
DDAS: 2 Ad FOL. 
DDA4S: 49 OF ar EOR #1 
DDAS: 45 a9 eA E0R CRPRTYP sSet bits of CPRTYP: 
DPA: Ch BY 244 CMP CRRIYP H 
DDAA: FO S1 24S RCC 8 6SNTXERR 
DDAC: BS 89 PAS STA CPRITYP 
DDAEs 20 BL OO +47 JSR CHRGET gAnather operator’? 
DDBi:s 4€ 98 DD +4k& JMF CrRROPF sCheck for <<, =, 7 again 
DDB4: AG 8 2AD CHEK TYP LOX CPRTYP 
DDRG: DO 2C whe ENE COMPARE gRranch if had <,=, > 
DDE: RO 7E rol BCS NOTMATH yBranch if mext token - "a" 
DDEAs 69 OF rae ADC #8CRr—-olus 
DDBC: 90 77 Raw 2! RCC NOTMATH Branch if mext token < "+" 
DDRE:s 653 11 24} ADC VAL TYF gt and dlast result a string’? 
PDCO; DO Of 2S BNE ARITH gBeranch if moat 
DRGs: aC 97 ES 336 JMF CAT rConcatenate if go. 
Lat SY FF So? ART TH ADC FSF sNow Ac-req has affset 
DOCT7s GS SE roe ST& INDEX s +rom "+", 


DDFOs 
DDF 2: 
DDF 4: 


ONE by 
wt Ft 
DDF ERs 


DDFD: 
DEOOs 
DEO: 
DEO4s 
DEOSs 
DEOS s 
DEOA: 


DEOD: 


DE1QO: 
DE12: 


mies 


SF 


DO 


DO 


DQ 


DE 


DD 


DE 


DQ 


ASL. 
ADC INDEX slimes 
TAY 


PREFTEST PLA 
CMP MATHTBL., Y 


yGet last preferance 


RoE DOMTH §Do now if preferred 
JSR CHENLUM gWas last result a #°? 

NX OF PHA 

SAvor JSR FSHMAD phave operation on stack 
FLA 


LDY LASTOP 
ark, PREPNC 


TeX 
REQ GOEX sExit af no math in frm 
BNE DOMATH 

COMPARE Lok VALTYF fenmable string compare 
TXA 4$5et CRPRTYP: O0O00>=< (0 
ROL. ; where C=carry fram 
2? “DECR.TXIPIR 
LOX TXTPTR 
BNE ND 
DEC TXTFTR+1 

ND DEC TXTFTR 


LDY #FPLUS-MATHTRL 
STA CPRTYF ; mext character test. 
BNE PREFTEST rAlways 


PREP NC CMP MATHTEL, ¥ 
BGE DOMATH 
BLT NxXOF 


PSHMAD LDA MATHTBL +2, ¥ 


PHA gPut address af math 

LD& MATHTBL +1, ¥ 

He yrautine aon stack. 

JSF FSH yReturns via the JMF CINDEX) 


LDA CFRTYP 
JMF FEVLOOPF 


SMTXERR JUMP SYNERR 


POH LDA FACSiGN gGet FACSGN to push it 
LDX MATHTEBL, ¥ 


x Get INDEX for return and push FAC 
Kk A-reqg has FACSGN, ar ~-1,0,1 if from STEP 


PSHFACX TAY rCalled by STEP 


PLA gPall return address 
STA INDEX gsPlace it in INDEX. 

INC INDEX sThig routine assumes 
PLA : return address i6 mot 
STA INDEX+1 ; an page boundary. 

TYA 


PHA sPush FACSOGN 


DELO: 


Dios 


my te 
DE?S: 

ar ae 

eee 


ue s 


DE? : 
DEZE: 
DEZC: 
DEZE: 


DESF : 
DES31: 
DERZ s 


DESS: 
DES7: 
DESS s 
DESA: 
DESC 3 
DESE: 
DE44 : 


DEAS 3 
PS 4A § 


. wes 


DEA? s 
DE4E: 
DE4A: 
DEAR: 


DE4D: 
DE4Es 
DEMO: 
DESI: 


DESSs 
DES4 s 
DESS: 
DES7 2 


DESO s 
DESEs 


AM 


1 Ps 


14 


eee 


Ao 


w AA 


Ay? 


AS 


0) 


DD 


0 . 2 ae Ya 


elld 
“liz 
fille 
ba ee BO 


Liz 


2112 
eli 


PUSHFAC 


NOTMATH 


OE X 
DOMTH 


DMTH ory 


*¥ Full floating # fram stack, 
Kmath routine via RTS 


DOMATH FLA 


EAT 


* Get value of variable or number at TXTFNT, 
*¥ to string descriptor if a String, 


RNDE 
PUSH. FAC+S 
PAC+ A+ 1 


Called by FOR 


FAC+S 
PUSH. FAC+4 
FAC+ 1 +4 


FAC+I] 


FAC 


(INDEX) ;Do RTS funny way 


ERE shet up to exit routine 
Exit af mo math to da 

Was at U's 

Allow string compare if sa 


=e ee s 
HESS i 
DM TH : 
CHE NIM 
LAg& TOF 


place in ARG and go tea 
faddress was placed om stack): 


CRRMASE g OOOO se 
FULL. ARG 


ARG 

AR G+ 1 
PULL. ARG+2 
ARG+2 

ARG ++ 1 
PULL. ARG+4 
ARG+4 
ARG +4 + 1 
FACSEN 


SONCrR 
FAC 


or point 
and put ain FAC, 


DESO: 
DESZ : 
DES s 
DEG? : 

69: 
DESC: 
DESF : 
DEZ71: 
DE 73:3 
DE7Ss: 
DE77: 
DE79: 
DEVE s 
DE7D: 
DE /F 3 
DESis 
DESS: 
DERE s 
DER? s 
DEBS: 
DESAs 
DED s 


DESO: 
DEY2: 
DES4: 
DESS: 


DESS: 
NPA: 
. £<FCs 
DEVE: 
DESF : 
DEAL: 


DEA4 
DEAS: 
DEAR: 


DEAE: 
DEAD: 
DEAF : 


DERZs 
DEBS: 
DERE: 
DEBRA: 
DERE: 
DERDs 
DEBE: 
DECOs 
DEC2: 
DEC4 
DECS: 
ar 
VDECE : 


On 


EC 
EQ 


as 
Ee? 


ES 


ES 


DF 


DE 
DD 


ft) 


D4 


214s 
2-144 
214 
“14S 
214? 
~14ea 
2149 
SABO 
eid 

Pe bee se 
SLSR 
PL4 
eioe 
rie 
21S? 
>1358 
TRS 


e140 


21Idi 
2162 
2iSs 
2144 
7165 
7144 
2167 
+1468 
7169 
7i7O 
yar 
S172 
7173 
ei v4 
2570 
2176 
be a ard 
~178 
i739 
>180 
eit 
>182 
7182 
14 
+185 
718d 
>197 
2Lee 


GETVAL 


SKIP 


NUMBER 
YAR? 


STRTXT 


EQUOF 


NOT Z 


FN? 


SGN? 


PAR CHE 


CHECLS 


CHE ORM 


CHE COM 
SYNCH 


SYNERK 


SEEED SORES BHOTe Sree veneer 
« 


JSR 


‘acre 403 


HO) 
VAL TYF 
CHRGE T 


NUMBER 
ML LAS 
MIN 

#o duis 
SE TF 

* ? $i 3 
NOT? 
TATFITR 


TAP IRS 


#O 
sti 


STRLIT 
POINT 


#nioat 
EN’? 


3 aw. valty p 43 M iain” - 
; apr ae ns g at orR 


. Ca2Zey set if ner ain ReciC Leis carey clean 
4 


£ His. 
if numeric 
:A variable? 


, crert set f a 


(ete z 4 


(eHe 2 fie as name) 


4A 
Cec aA 


4 go beck Rr neck cuties 


geuplicit string, build desc. 


Get pointer to dese. in FAC 


#EQUAL~MATHT RL 


FOUL 


FAC 
NOT Z 

+ 4} 

4 

HOD 
SNGFLT 


$F ry 
SGN’? 
FUNCT 


Hear 
PARTCHE 
UNARY 


CHEORN 
FRMEVIL 


HED 


C(TRIPTR) , 


SYNERR 
CHRGET 


#OSYNTXERR 


ERROR 


rAlways 


sTrick to skip 


><" at TATPTR? 
evaluate and 
for *)* 


gic there a 
if a, 
Check 
sirick 


s Trick 

sComma at TXTPTRY 
a 

rif ak, rehurn 


get mext chr & 


“ERRMSG 


POC) 

DECE: AQ iS e2O1 MIN LDY #MINUS-MATHTAL 
DEDOs 66 2202 EQUL Phe 
DEDI: 68 eed eo 

D2: 4C D7 DD +204 UJMF SAVOPF 

“00 

DEDS: 20 ES DF +206 VARL JSR FTRGET ( jeothe ee tbene| vamble name expected 
DEDS: 8S AG bys ef STA VENT : 
DEDA: 84 Al 2208 STY VPNT+1 
DEDC:s AG Ii Pa09 LOX VAL TYF SString? 
DEDE: FO 05 7210 REQ VARI gRranch if mot 
DEEOs AR OO ~eil LOX #O 
DEEZ: 84 AC be OP STX STRNGI+<+1 
DEE4: 40 eee RTS 
DEES: AGS 12 eei4d VARI LDX VALTYP +d sy integer var’? 
DEE7: £0 OD Paae BRL VR sRranch if not 
DEES: AO OO 2216 LDY #0 
DEER: Bi AO ae Og LDA (YVPNT), ¥ 
DEED: AA 222i TAX 
DEEE: C8 regs INY 
DEEF: Bi AS Soran ©) LDA ¢VPNT), ¥ 
DEF i: AGB ea | TAY 
DEFZ: 84 P22 TXA 
DEF S: 4€ F2 E22 22235 JMP GIVAYF 
DEFS: 4C FS EA +22. VR JMF  MOVEM 


ies Tae t 
“ Let 


DEF9: 20 Bl OO +226 SCREEN JSR CHRGET 
Veria £20 EC Fi 3227 JSR FLOTFNS 
DEFF: 84 PS TXA 

POO: Aa FO a tae LDY FIRST 

. O2s 20 71 FSB F230 JSR SCR 
DFOS: AR reo TAY 

DFO6: 20 O1 ES +232 JSR SNGFLT 
DFO?: 4C BE DE F235 JMP  CHECLS 


Yeos Kk FPraocess unary operators (functions): 


DFOCs C9 D7 Yeo | © UINARY CMF  #ecen gNot unary, do special 

DFOE: FO E9 poe de REO SCREEN 

DFO: OF PO? ASSL. 

DFiis 48 2240 PHA 

DFizs AA ee4) TAX 

DFisd:s 20 Bi oO +242 JSR CHRGET 

DFiés EO CF e243 CPX ##leftstr#2-1 

DFiI8s 9O 20 oe 44 BLT NOTingstre ;Branch if mot an instring ap 

DF IAs 20 BR DE +245 JSR CHEOPN :Check far * ¢* 

DFiDd:s 20 7B DD +244 JSR FRMEVL. SPracess coamcat., @tc. 

DF2O: 2O BE DE 2247 JSF CHECOM 

DFeSs 20 46C DD +248 JSR CHESTR yMake sure it 16 a& string 

DF2G: 68 ea? BLA 

DFE ys AA 220 TAX ;Retrieve routine pointer 
Yad vee PLUSH. VENT 

DFSos AS Al bese LDA VENT+i1 

DFZA: 48 erie y | PHA 

DFeRs AS AO Seas LOA YVPNT 

2D: 48 eae | PHA: 


DFE: 
DF ar : 
DF SO: 


“eo “se %& 


BAe 
DF SS: 
DF SG: 
DF 37 


DF SAS 
DFSDs 
DF SE 
DF SF 3 
DFA s 
DF 44 3 
DF 4? s 
DFAS: 


DF 4C 


DF AF : 
DFSi: 
DFSS: 
DPSS s 
DFS? 3 
DFS s 
DFE s 
DEED: 
DF SF t 
P60: 


be 8 


DF OS: 
DF SEs 
DF SA: 
DF éC 
DF SE: 
DF 7Os 
DF 72: 
De 743 
DF 7S: 
DF 79: 
DF 7A: 
DF 7D: 
DF 7F : 
DFSi s 
DEES 3 
DFAS: 
DFS s 
DFSA: 
DFSC: 
DFSE:s 
DF YO: 
DFOS 3 
DFOS: 
“OF s 
DEFOR s 


Fe 


D 


ES 


ER 


DF 


Eo 


Eo 


2 aOH 


27 
7308 


NOTinstere 


GOROUT 


OF 


AND 


FALSE 


TRUE 


POSOF 


STRCMP 


TXA 
PHA 
Jor 
PLA 
TAY 
TXA 
PHA 
MP 


JSF 
PLA 
TAY 
LDA 
STA 


GETERYT 


GOROQUT 


PAR CHE, 


Push it back 


gsFoint Y to routine 


gPush ist param 


UNFNC~#44, Y s#A4=sqnk? 
IMPADRS+14 

UNFNC-$A3, Y 

IMPADRS+2 


JMPADRS 


CHE NLM 


ARG 
FAC 
TRUE 
ARS 
FALSE 
FAC 
TRUE 
#O) 

vs 

# 
SNGF LT 


CHEV AL 
STROMP 
ARGSGN 
He 7 
ARG+ } 
AR G+ I 
#ARG 
#0) 
FCOMP 


NUMCMPF 
#O 

VAL TYP 
CPRTYP 
PREPAC 
ae 
FAC+ I 
FAC +2 
ARG +3 
ARG+4 
FRE TMP 
ARG+3 
ARG+4 


Does mot return far 
LEF TS, RIGHTS, MIDS. 


38 
e 
% 
: 


tiTrice 


gRranch af strings 


yReturn Av-req = 
; as ARG <«<,=, > 


~{ sO i 
FAC. 


,String length 


slLenm (ARG) string 


DFOS: ES YD ae hed SRC FAC gbet X to smaller len 
DEFOR: FO Og BSe1O REQ &FS 
DFODs AP O] Re | LDA #1 
DEOF: FO O44 Poke BLO SFS 
Wis AS FD POLES LOX FAC 
DFAS: AG FF Pe LDA #BFF 
DFAS: 85 Az solo SFS SPA FACSGN gFlaqg which sharter 
DFAT: AO FF 21S LDY Far 
DFAS: ES aS i INX 
DFAAs Cea 7318 UCUMPLOOF INY 
DFAB:s CA Poke DEX 
DFAC: DO 7 Ed @ BENE DOCMP 
DEAE: AS AZ Pe LOX FACSGN gif = so far, decide by len 
DFEO: 30 OF eee NSUMCMP EMT  CMPDONE 
DFE ig PS Het 
DFES: 9O OC ee 4 ROC CMPDONE 
DFE Ri Ag Y EPS DOCME LDA (ARG+3), ¥ 
DFE7:s Di 9E Sa a CMP (FAC+1),Y 
DFBY: FO EF Pa Wat A REQ CMPLOOF 
DEFER: AZ FF 232 LOX #8FF 
DFED: BO O2 roe 8 RCS CMPDONE 
DFRF: AZ O1 F330 LOX #1 
DFCi: E8 eoeed  OMPDONE INX ;Convert FF,9O,1 to 1,2,4 
DFC 8A Pie TEA 
OFC3: < Re Me ROH. 
DFC4: 25 14 S34 AND CPRMASE g OOOOO ps 
DFCGé: FO O02 Pte REQ UF it no pacei false 
DFC: AY OF eT LDA #1 fAt least one match: true | 
DFCA: 4C 93 EB 3337 JF UMF FLOAT 
eo PK PKS 
tet 2O FB EG. +339 PDL JSk CONINT :Get #inmn xX (£4 not checked) 
DEDO: 20 JE FR 3340 Joe FREAD eer maddie 
DFDS: 4C O1 ES 2341 UMP SNGPFLT gPloat result 
er 
DFDS: 20 BE DE 2-345 NXDIM JSk CHECOM 
DFD?s AA 7344 DIM TAX 
DFDAs 2O ES DF 3345 JSF PFPTRGET2 
DFDDs 20 BY OO +344 JSR CHRGOT 
DFEO: DO F4 347 ENE NXDIM 
DFEZ: 60 R48 RTS 
49 
DFESs AR OO 23090 PTRGET LDX #0 
OPES: 2O B7 OO 3351 JSR CHRGOT ret variable name 
DFEBSs 84 16 toue FIRGETZ SIX DIMFLG gX has VARNAM if fram DIM 
DFEA: && 4 Soo FPTRGETS STA VARNAM 
DFEC: 20 B7 O00 3354 JSF CHEGOT 
DFEF: 2O 7D EO 3355 JSR ISLETC :is it a letter? 
DFF2: BO OS Pade} BCS NAMOK :Eranch if soa 
DFF4: 40 C9 DE 3357 BADNAM JMP &YNERR sError if not 
DEF 7s AB OO 73S NAME LDX #O 
DFF9: 86 11 Soa? GTX VALTYF 
DEPB: 86 12 POO STX VALTYF +1 
DOPED: 40 07 EO +361 JMF MORNAM :fo branch across #£€000 vectars 
SC va 
— Peas * BASTC entry points far DOS etc., uses 
S44 


EOOO: 40 289 Fil +365 JMP COLDST 


Sot Sos sce ot ez Fac} ee AJ seams 


EOOS: 40 BC D4 2344 JMF RESTART 


EOOG&s OO aS BRE 
ees 


EQO?7: 20 BL OO 2369 MORNAM JSR  CHRGET 
OAs FO OF Pw 4 RCC GTLT 
kGOC: 20 7D EQ 3371 JER ISLETC 
EOOF: FO OF rola BCC STRNG? 

wine free 2373 GTLT TAX 
EOl2: 20 Bl OO +374 BYPASS JSR CHRGET 
EO1S: w) FB no ge RCC BYPASS 
EQO17: 20 7D EO 3376 JSR IGLETC 
EOLA: BO FS aT a BCS BYPASS far af aloha, 
EGOits Co 2 23/79 STRNG? [ME #? 6? gHet up var type flags 
EOE: DO O4 ery ENE INTVAR? 
ROO: AP FF 2 SBO LDA FFF 
EQ22: 83 11 it BPA VAL TYF 
RO24:s DO 1o ~ S82 ENE NIN 
E0261 C9 25 2383 INTVAR? CMF #° 2%" 
Poe: DO is 24 BNE SCDCH 
ROSA: AS 14 Rice sn bo LDA SURFLG sinteqer var allowed’? 
EO2C: 30 C46 2 SaBd BMI BADNAM fsError if not. 
EOZE: AY 8O roo? LDA HBRO 
EOSO: 85 12 i mb STA VALTYF +1 
EQS2: O83 81 PS bed QORA VARNAM 
FOS4: 8S oi ror STA VARNAM 
EOSG: 8A 2oPl NIN TXA 
E037: OF SO BP Se ed ORA HERO 
FOSS: AA Pe TAX 
ROSA: 20 BL OO Fad J&P CHRGET 
FYSD: 86 B2 7993  SCDCH &TX VARNAM+1 rend var name che 
wera 3S rSIS SEC 
ROG; OF 14 rao? ORA SUBRLG 
EO4e2s ES 2a Re = SEC #* ¢? 
EO44: Do OF Pe ENE BSE 
EO4S: 40 LE EL 2-400 JARY JMF ARRAY 
EOS: 24 14 24O1 Boe BIT SUBFLS 
RO4Rs 3O O2 2A? BMI VSEARCH 
EO4D: YO FF? 2403 BYVS JARY yeranch if called by GETARYFT 
EOAGF s,s AY OO "404 VYSEAQRCH LDA #0 
EOoSise 8S 14 24s STA SUSFLG 
ROSS: AS 69 24d LDA VARTAER ginit varl ontr 
EOS: AG 6A 2A? LDX VARTAR+1I 
EOS? AO OO 2408 LDY #O 
EOS?S: 86 $C 74O? NXVAR S7X LOWTR+4 
EOSE: 85 SE 741g NVI STA LOWTR 
EOSDs ES 4C 274i) CrX ARYTAR+I rind of simmle vars? 
EOSFs DO O4 24iz BNE NYV2 NO, GO on 
EOS1: CS oR 2Ads [MP ARYTAR 
EOQO43: FO 22 2414 BEQ NOTFND ;Yes, make ane’? 
EO6&S: AS 4 41S NYE LDA VARNAM 
E067: Di 9B 241s CMF (LOWTR), ¥ 
EOS9:s DO O8 2417 ENE NXP TR yeranch if mot this one 
EQOSH: AS 82 27418 LDA VARNAM+1 
EO4D: Ce 2419 INY 

O6E: Di FE 42g CMP <(LOWTRD, Y 

7O3s FO 6C PAS REQ SETVFNT :franch af found 
EO72: 88 rAZe DEY 


mado chr of variable name 
ranch if mumeric 
& it alpha? 

ranch if mat 

ave 2nd chr of mame in xX 
Find end of var. mame 
oop if mumeric 


“3S “RS “MR “SER “SS 


ro ps oh 


"Rs “RE 


EO7S:2 
EOP 4s 
EOS 8 
EOvR a 

VAs 
EOE: 


EO7D: 
EOVF 3 
EOS s 
EOS s 
ORS g 
EOS: 


EO? s 
EORS : 
EOS g 
OSE § 
EOD s 
EOSE : 
EO9 z 
FOSS 3 
EOS: 
E097: 
EQS9: 
OPA: 
EOS: 
ii 


E0O9C: 
EOSE s 
OAD g 
ORS s 


FOS} 
EOE 8 
EOE s 
EO x 


E OAC s 
ROAD: 
EOAF s 
EORL s 
EES s 
OR g 
EORS s 
EOBS s 
ORE s 
EOBDs 
EORE : 

COs: 
EOC. 


PE 
oO? 


NAP TR 


X¥ Check 


ISLETC 


RTM I 


NOTFND 


TWORRE 


¥ Move arrays 


NEWVAR 


Ni 


20008 eneee Codes Seeee eneee 


CLC 
LDA 
ADC 
BCC 
INX 
ENE 


LOW TR 
i? 
MV 1 


NXVAR 


if letter A-Z, 


CMF 


PLA 
PHA 


RTS 
RRE 
BRE 


%,. ““\ *® 
Mee Pe, 
et if 


LDA 
LDY 


#"° 4? 
RM TNI 
#7" 


#ELOO~? L 


HVARL +2 
NEWVAR 


STACK +2, 
#OVARL +2 
NEWVAR 
#TWORRE 
# > TWORRE 


rAlways 


set carry if sea, 


# 


332 


“RA “Rs 


x 


;Getk oriq, 


clear if 


Ryn EC 


Tt called by VARL it 
is not an assignment, 


so fake it. 


to make room for new variable: 


TRAY. ARYTABs: LOWTR 


ARY TAR 
ARY TAR+ I 
LOWTR 
LOWTR+ 1 


TRAY. STRENDs HIGHTR 


STREND 
oT REND+1 
MHI GHTR 
HIGHTR+1 


#7 
MAY 


ARY PNT 
ARYPNT + 1 
BLTU 
ARYRFNT 
ARYRPNT+ 4 


ARY TAR 
ARYTAR+ 1 
HO} 


rats 


EoOC4: AS i 2A? LDA VARNAM 
EQOCGs 91 9B PA? A SrA <{LOWTR), ¥ 
£OC-G: CS 2472 INY 
EQCo: As 2 ea? LDA VARNAM+ 1 
' Ba 9T SB 247 4 SrA <{LOWTR), ¥ 
kOCDs AP OO 2A? S LDA #o Set value to oO 
EOCF: CS 2A? 7? INY 
EQDO: 91 9B 2473 BTA (LOWTR), ¥ 
EOD2: Ca 2477 INY | 
EQDS: 91 9B 2478 SPA {LOWTR), ¥ 
EODS: Ces 2A? INY 
EODSs Fi 9E 24A7R SPA (LOWTR), ¥ 
FODS: Cs 2477 INY 
EQD9: 91 9E 2A7 oS STA <(LOWTR), ¥ 
EODR: Co 2A? 7 INY 
EOQDC: 91 9B 2478 STA {LOWTR), ¥ 
EODE: AS FE S480 SE TYPNT LDA LOWTR 
EOEO: i8 244 keke 
EOE: 69 02 PAs ADC #2 
FOES: Ad 9C S4a3 LDY LOWTR+4 
EOES:s FO O1 244 BCC SVP 
EOE 7: CB 24S INY 
EOES: 85 83 "495 SVE STA VARFENT 
EOEA: 84 84 SAE? STY VARFNT+1 
EOECs 50 7483 RTS 

S49 
EOED: AS OF "490 GETARY LDA NUMDIM 
EOE: OF "491 GETARYS ASL times 2 
EQFOs 69 O05 PAG ADC #S plus S tname, offset and #dim) 
Pr“Pai: &5 FB 24S ADC LOWTR sAdd toa variable pointer 

Fa: A4 9C 2494 MpY LOWTR+4 

EOFS: 99 O1 PAGES BCC GD 
EOFS: CS PAGS INY 
EOFS: 85 94 2AG? G&D STA ARYENT :Now points to first degecriptear 
EOFs 84 9S 2492 STY ARYENT+1 : im array. 
EOFDs &0 AOD | RTS 

FCO 
EOFE: 90 80 00 
EioOis a0 2SO1 NEGNUM HEX Foekoooog gE GE 

yaa 
Eig?: 20 Bl OO FEROS MARINT JSR CHRGET 
FiOS: 20 67 DD +04 JSR FRMNUIM 
EL1O8: AB AZ SSOS ME INT LDA FACSGN cerror if = 
ELO®: 3Oo Oop PESOS BMI MIA 
EiOC:s AS ¥D SOF AYINT LDA FAL 
EIOEs CO FO 20g CMP #890 
Ei1i1aQ: 9O a9 iw Og BEC Miz 
Eliz: AY FE 2S1d LDA +#NEGNUM 
Eii4: AO EO Eres Oe LDY #$>NEGNUM 
ElLiGs 20 B2 EB 2512 J5R FCOMP 
EBii9s DO 7E ee oe i | BNE ITOQERK Sarror jf no% 
EiiBs 4C F2 EB 3-514 MI2 IMP QINT 

Dns Bo 

"SiG * Routine to locate array element ar to create an array. 

kane oF 4 
“ME: AS 14 "S18 ARRAY LDS SUBFLG 
kieods DO 47 poe 8 Ae BNE FANDARY 


Get # af dimensions 


os] 


“RS a 


21s 2 


Branch if so 


Pdi j -, er 


“RS "RA aS 


ubscripte given? 


s Su 
gHranch if mat 


3 


E12 
EiZ2 
E126: 
Ele?: 
ays 
EivA: 
E12C: 
Ei2Ds 


- 
° 


is 


ELZ2E: 
E130: 
EiSi: 
EiSSs 


Ei s4: 


Eis /: 
EIS8: 
ELSA: 
ELSE: 


Ei3D: 
ELSE: 
E13F 3 
E140: 
Ei4ss: 
E144: 
Ei47s: 
Eil4é: 
PA AEs 3 
. «4D: 
Rides 
ELS2: 
EiSSs 
E156: 
E156: 
Ei Ses 
EISC: 


EISF: 
Fido: 
ELlS2: 


E1ié3: 


E145: 
E1I&/ 2 
E149: 
E1GEB: 
ELSD: 
ELOF : 
Eil7is 
E73: 
Ei7S: 
E177: 
- 179: 
mi 
YEs 
bk17Ds: 


DE 


NX TDOIM 


FPNDARY 


ARYL OOF 


AR Y NAM? 


POSE Crete SEEee eeeee arene 


LDA 
ORAS 
Pe 
OF 
PHA 
oh 
TYA 
PH 


ory 


JSR 


PLA 
SPA 
PLA 
STA 


AND 
STA 
L.Dx 
LDS 
3 PX 
ara 
CMF 
BME 
oe 
BEQ 
LDY 
LDA 
INY 


Pieris 
VAL TYP +1] 


VALOT YF 


HD 


PUSH. VARNAM 


VARNAM+ | 
YVARNAM 

MAK INT 
PULL. VARNAM 
VARNAM 


VARNAM+ 1 


STACK+2, X 
STACK +1, X 


FACS 
STACK+2, X 
FAC+4 
STACK+1, X 


CHRGEOT 


CHE CLS 
PULL. VAL TYP 


VAL TYF 


VAL TYP +1 


STREND+1 
ARYNAM? 
STREND 
NOTFOUND 
eo 
(LOWTR) 4 Y 


;Set high bit if % 


fet rin adies 
and duplicate 


8 
f 
a 
ii 


sGet subscript 
foancd out an stack 
y where rtm ades was, 


gMask bit fram VALTYFR+1 


eee sae tee sas eae Pace we Oe 


EivE: CS Si Prat = Fi CME VaRNAM 
Elfo: DO o4 FeO ENE NXARY 
Elig2s AS S2 edo} LDA VARNAM+1 
Elg4: Di $B PaO CMP <¢<LOWTR), ¥ 
BG: FO 1s ete BEQ ARYFOUND 
Ele: Ce eote ey NX ORY INY 
ELS: B1 9B eee LDA CLOWTRD, ¥ 
Ele: 16 Rat = beg LAW 
EISC: 65 9B wut?) ADC LOWTR 
EIiSe: AAs wate ok TAX 
EISF: Ce watt INY 
Ei9O: Bi 9B rae ws LDA CLOWTR), ¥ 
EiV2: 4&5 FC wut? 4 ADC LOWTR+4 
Ei¢gds 9O DY? ae fd BOC  ARYLOOF 
Ei¢gS: AZ SE ea?S SUBERR LDX #EADSUBRS-ERRMSG 
Eive: 2C ors Hex 2th gs Trick 
EIG9:s AZ 3S vot? ao TOERR LOX #TLLOQUAN-ERRMSG 
EIl°SBR: 4C 12 D4 +379 JER JUMP ERROR 
eee 
ELSE: AZ 78 2S) ARYFOUND LDX #REcdimARR-ERRMSG 
EiAQ: AS 1O Pes = LDA DIMFLG 
EiAz@:s DO F? at = Be’ ENE JER 
ElAd: AS 14 4} LDA SURPFLG 
FiAé: FO Of ge fe BREQ CHEDIM 
EiAag&: 38 EAS = a 
ELAS: 60 Pare RTS 
Rian to 
EiAAs 20 ED EO -EaoS CHEDIM Joke GETARY 
EiADb: AS OF re FO LDA NUMDIM 
SAR s AO O4 oid? I L DY #4 
.~<B1is Dl 9B Ra CMP CLOWTR), ¥ 
ELES: DO £1 rues ENE SUBERR 
EIiBS: 40 48 Ee tao4 JUMP  FPANDELEM 
pare be aa 
EIiRS: AS 14 SSS NOTFOUND LDA SUBFLG 
EiRA: FO OF Pee be Pd REQ MARARY 
RikRCs AR 2A Pare be d= | LOX #OafDATA-ERRMSG 
EIRBEs 4C 12 D4 +3899 JMF ERROR 
600 
FiCis 20 ED EO +401 MAKARY JSR GETARY 
BiC4: 20 ES DS +402 Joe REASON 
EiC7: AS 00 2 oO LDA HO 
EiC9s AB 7hO4 TAY 
EiCA: 85 AE 2 OOS STA STRNGe+i 
EICCs Ag OS PhO LOX #2 
EICE: AS 81 ~h07 LDA VARNAM 
EiDOG: 91 9B 2608 SPA (LOWTR), ¥ 
EID2Z: 10 O1 eho RRL NOINT 
Eid4a:s CA 2&1 DE x tinteger array 
EIDS: CE -&lio NINT INY 
EiDdS: ASE as PG&l2 LDA VARNA + 1 
ElDGs 91 OER POTS STA (LOWTR), ¥ 
EiIDA: 10 O2 és 1 4 BRL RAR gGranch if real. array 
EiDC: CA PO aS DEX 
EDD: CA 215 DEX 
Dre 8S AD "S17 RAR STX STRNG? ;X=5,3,2 89: real, str,int 


ELlEO:s AS OF 718 LDA NUNMDIM 


EIlE2: 
ELES: 
Eie4: 
EAESs 

E73 
ELIES: 
ELEB: 
ELED: 
ELEP s 
ELF Os 
ELF 1: 
EiF Ss: 
EiFas 
E1F 3: 
ELF 7: 
EIFS: 
EIiFA: 
FIFE: 
EFC 
E1FE:s 
EZOLs 
E2OS: 
E2OS: 
E2073 
E209: 
E2ORs 
E2OD s 
E2OF t 


PF nbn ta) 
2657 
7658 
7 hS9 
7440 
+S41 
3hHS2 
7463 
Thh4 
2465 
7 O46 
ent id 
7hS8 
7469 
2470 
347 1 


*., raid 
Pole 


267% 
2674 


67S 


SBAYDIM 


DELTDIM 


LARLY 


Z2LUF 


NXFG 


P20Re ORere CORee eonee Sener 


(LOWTR) , ¥ 
#14 

Te) 

DIMFLG 
DFLTDIM 
#1 

#0) 


(LOWTR) , ¥ 


(LOWTR),Y 
MULT 
STRNG? 
STRNGZ+1 
INDEX 
NUMDIM 
SAVDIM 
ARYPNT+14 
GME 
ARYPNT+1 


ARYRPNT 
ZAR Y 


ME 
REASON 
STREND 
STREND+1 
HO 
STRNG2+ 1 
STRNG2 
NXPG 


(ARYENT) , ¥ 
ZLUP 
ARYPNT +14 
STRNG2+1 
ZLUP 
ARYPNT+1 


STREND 
LOWTR 

#2 
(LOWTR) .¥ 
STREND+ 1 


LOWTR+1 
(LOWTR) , ¥ 


ae a  N 


Default dimension + 1 


;Dimensioaned array’? 
tBranch if nat - 
rGet specified dim in A, x 


guild dim table 


gRetrieve Y saved by MULT 
sClount down # dims 
glLooo till dane 


:sMake sure there is roam 
and then zera out 
the array. 


s 
bs 
+8 
% 


gPoink to next page 


gLoanm till done 


ten} HD 
Eau t 
EeGéis 
E263 % 
Fo} g 
E ZOO: 
2073 
EZS? >: 


E2ZOGC: 


EZOF s 
Fie 72 


E2PAOs 
erie s 
 Vadbs 
AS 2 


10 
G2 


oT 
OC) 


ei 


D4 


PMDELEM 


DTMLUF 


Gok 


SMe 


DIMOK 


DIMOK2 


NADM 


NINTA 


Fee 


DIMFLG 
RTN2 


(LOWTR) . ¥ 
NUMDIM 

#0 

STRNG? 
STRNGZ+1 


PAC +S 


FAC+TS 
(LOWTR) , ¥ 
DIMOK 

GSE 


(LOWTR) ,¥ 
DIMOK2 
SUBERR 


MEMERR 


STRNG2+1 
STRNG2 


NX DM 
MULT 


FAC+HS 


INDEX 
PAL +4 
STRNG2 
NUMDIM 
DIMLUP 
SPRNG2+1 
# 
YARNAM 
NINTSA 


YARNAM+ 1 
RLF Y 


RESULT+2 
HOD 
Mit 


ARYRNT 
VARFNT 


ARYRNT +] 


rFPind specified element 
: OF array fram index put 
; an gtack by NXTDIM. 


Retrieve index arid 
check against dim. 


2 
a 
a8 
Hs] 


;Retrieve 
sNext dim 


¥Y¥ saved by MULT 


flLoanm till done 


. 


sRranch if nat int 


gRranch if real 


85; 
AR 
fj 
&O 


rat} od 
PR 
&4 


PE 
6S 
iO 
79 
OO) 
OO 


oF 
oO 


PR ER 


%, ef woage eeoge 
* * . 
“ : “ees “sos? 
IEA 

af, J *see® 

. 

26 F LES, 
. 


27 SoS 
SIA? 
27 38 
7739 
7740 
274d 
2742 
77 4AS 
274g 
PA 
77 4& 
F447 
27742 
7749 
27 SO 
PTOL 


Pie 


oF Aw Ps 


“cose” “ene 


2 PA 


Pros 
27S 
Pilar 
27 So 
27 
27 6O 
7S) 
3762 
7763 
7&4 
3765 
7 OS 
>7 67 
76S 
27h? 
7 7O 
>771 
PIT4a 
3773 
P74 
ar a ga” 
77h 
S777 
7778 
tiie 
s7AO 
>78il 
7782 
~78S 
=F B4 
>78S 
78S 
7737 
788 
+789 


RTN2 


x 1S 


MULT 


MUL 


MLN 


MULES 


PRE 


FRE2 


bait 


GIVAYF 


fron floating) 
KX by STRNGS leaving praduct in A,X. 
* Used only by array subscript routines. 


BLY 
LDA 
STA 
DEY 
LDA 
SrA 
LDS 
STA 
1D 
LDY 
TRA 
ASL 
TAX 
TYA 
ROL 
TAY 
RCS 
ASL. 
FOL 
BCC 
CLC 
TXA 
ADC 
TAX 
TYA 
ADC 
TAY 
BCS 
DEC 
BNE 
RTS 


LDA 
REQ 
JOR 
JSK 
SEC 
LDA 
SEC 
TAY 
LDA 
SRC 
LOX 
STX 
STA 
STY 
LOX 
JMP 


VARPNT + 1 


VARPNT 


INDEX 


Snes cones aeeee eeese sens 


(LOWTR).¥ 


RESULT+2 


(LOWTR) ,¥ 


RESULT+3 
#10 
INDX 

#O 

#O 


Mr 
SPRNGZ 
STRNG2+1 
MULES 


RESULT +2 


RESULT+3 


GME 
TNDX 
MUZ 


VAL TYF 
FRE? 

FREFAC 
GARBAG 


FRE TOP 
STREND 


PRE TOU +) 
STREND+ 12 
#O 

VAL TYF 
FAC+ I 
FAC+? 
HEIO 
PLiii 


s Imcex 


sFloat signed integer 
gFlaqg as number 


multiply of (CLOWTR),¥ 


for 14 bit mult 


Soe se ew see oe F 3 SP) aiatoee 


2790 
E2eFe Ad 24 2791 86POS Oy 5, de, OS 
E2OLls AY OO 2732 SNGELT LDA #O 
ESOS: 3 PL TS Sel 
O42 FO EC 2 FOG BEG GIVAYF 
rT IS 
E20Hs AG 7S 2“79& ERRDIR LOX CURLIN I 
E508: ES PT 97 INX 
ESOS: DO Al 2 FO BENE RIN? gReturn if deferred mode 
ESOB:s A2 95 Pa i dar LOX #TLLDIR-ERRMSG 
ESOD: ZC PRO Mem se sirick 
ESOE: AZ EO SRO  UNDENC LOX #UNDFUNC-ERRMSG 
E310: 40 12 D4 +aoe JMF ERROR 
2 ROS 
BSS: 20 41 ESR +804 DEF JSR 
FSiG: 20 06 ES 7808 Joe ERRDIR 
ES19: 2O BR DE +806 JSR CHEOPN 
ESiC: A? BO 28o? LDA #BAO 
ESIE: 85 14 ~809 STA 8UBFLG ;Digallow int vars, ete 
E320: 20 ES DF >809 JSe FTRGET Get ptr ta arqument 
Roe 20 66 DD aio JSR CHENUM 
ES26: 20 BB DE >8il JSR CHECLS 
E329: AY DO 2Bis LDA H#ecquad 
Eo2bs 20 CO DE +815 JSF OSYNCHR 
Rocks 48 -Ri4 PHA giet chr follq = 
ois eee  PFPUSH., VARPNT 
Eoeres AS 84 31S LDA VYARENT+14 
Eoois 48 eels PHA 
ooet AS BS *eis LDA VYARPNT 
=4: 48 SiS He 
2810 4 
VB1LS foe PUB. TXIPTR 
ESS35: AS BS 21S LDA TATETR+1 
E337: 48 2Gis Fh 
ES38:s AS ES 2ELS LOoa TXTETR 
RooAs 48 27BiS PHA 
2ELS <<¢ 
: 20 95 D9 +817 JSk DATA 
: 40 AF ES -8ia JMF  FNCDATA 
2819 
"B20 * For FNC, "“value”’ af FNCNAM contains: 
"B21 & PFPointer to defn 
Ss 
i 


FNC? 


kip ta mext statement 


Ski 
gfeh up pointers in "value" 


Fe = Fointer to argument variable 
let chr of def 


ae wee Dae Bac 
sO GP cise Seaal 


24 
eS4ie AY C2 PQ25 FNC? LDA Ff 
ES43: 20 CO DE +826 J&R SYNCHR 
e346: OF BO 2827 ORA FAO 
E3482 8 14 2828 STA SUBFLG 
ES4A: 20 EA DF fae? JSR PTRGETS 
ES4D2 5 8A SEESO STA FNCNAM 
ES4Fs 84 8B a Be STY FNCNAM+1 
cowie 40 68 DD +832 JMP  CHENUM 
2833 
El54: 20 41 ES +834 FUNCT JSR FNC’? 
| Rt = Ba 23> PUSH. FNCNAM 
ESo/7: AS OR PEAS LDA FNCNAN+ 1 


EAE s 
ESA sg 
E35Cs 

EDs 
ERSOs 


Tama 
&4 
bt 
fn 7 & 


ES 

ae 
ae 
eat 


ESO: 
E SOR: 
ES6D: 
E SOF : 
E3708 
ES7is 
ES7S3 
ES7Ses 
EAs /3 
2/682 
moe ee 
E3/7B3 
E37C8% 
ES7E s 
ERO s 
ESOS: 
(NEVES 3 
ae dE ED 8 
SAS s 


ES89: 
ESS8B: 
ES8aD: 
ESSE: 
E2908 


ESO. s 
EAo4s 
ES9S: 
E973 


E98 : 


ESSE: 
ES9C s 
E SOEs 

OF s 


ESA1: 
EAA sg 
ERS 8 


EAD s 


69 


aA 


PBSO 
SBSO 
FES 1 
2862 
2ES2 
PHGe 
PBS? 
2BS? 
PRS2 
RB? OO SRSS 
Os 7BS4 


DD 


; CO DE +865 


TRESS 
TAS 7 
3847 


BAYOL D 


GE TOLD 


cates cones ccnve ogtap onene 


| PHA 


LDA 
Aids 


JSR 
JSR 


PLA 
ora 
Le 
ae 


LDY 
LOA 
STA 
TAX 
INY 
LDA 
REO 
aTA 
INY 
LDA 
PHA 
DEY 
RPL 
ey 
oor 


LDA 
Pee 


Peene eases eneee sence eevee 
OeSbs Beeee sense ens0e oneee 


EANCNAM 


PAR CHE 
CHENUM 
PULL. PFNCNAM 


FNCNAM 
FNCNAM+ I 


#2 
(FNCNAM) , ¥ 
VARPNT 


(FNCNAM) , ¥ 
UINDENC 
VARPNT +1 


(YARPNT),Y shave data 


SAVOLD 

VARPNT + 1 ;Get val of argument 
MOVME AFAC -> (VYARENT) 
PUSH, TXTPTR sRemember positian 
TAITP TRS) 


TXTPTR 


(FNCNAM) , 
TXTPTR 


Yo os¥=O 
gFoint ta fne defn 

{FP NCNAM) , ¥ 

TXTFTR+1 

PUSH, VARFNT 

VARENT + 4 


VARPNT 


PR MMM 
Pi tL. PNOCNAM 


ge&valuate fine 


PNCNAM 
FE NCNAM+ 1 
MHRGOT 
GE TOLD 
SYNERR 


PULL. TXTPTR sRetrieve prog position 


A: 85 BS 28S? BPA TTXTPTR 
E2ACs 6&8 eB? PLA 
: 83 BY PRG? STA TXKTPTR+I 
~~ 2S? <<< 
AFs AO OO PBSS FNCDATA LDY #0 sRetrieve fne data 
ESRI: 68 2BOS MLA 
E3hR2:s 91 SA 2? 1 STA ¢FNCNAM), ¥ 
Pok4:s 6 PEF 2 PLA 
ESBS: Ce >873 INY 
BSkG: Fi 8A 27 4 SPA CFNCNAM), ¥ 
ESEa: 68 a = Bae PLA 
ESBS: Ce 2873 INY 
moka: Fi BA 2e? 4d STA ¢FNCNAM), ¥ 
ESBC: 648 ba a PLA 
ESEBD: CS 2873 TINY 
ESBE: 91 8A *671 STA (FNCNAM), ¥ 
ESCO: 68 ray 2 PLA 
ESCi: CS 7873 TINY 
Eoal2: Fi BA 27S STA ¢FNCNAM), ¥ 
ESC42 SO PE? & RTS 
2877 
ESOS: 20 64 DD eve OTR JSR CHENUM Make sure it 16 & number 
RaCes AO OO 2E7S LDY #O 
ESCA: 2O BS ED FERRO JSk FACE TRNG ;Convert to string in stack 
EoCD: 6 788 i Pie 
ESCE: 68 Ba = | PLA 
ESCF?: AY FF “Ban LDA FSF F sFoint to STACK-1 
ESDis AO OO eRe 4 LDY #O 
wOot FO 12 78s BEQ STRLIT tOreate dese & move string 
oN “BES 
“BA? * Create string descriptears: 
“888 
7889 STRINI 23> TRXY,.FACt+S: DSCPTR 
ESDS: AG AO BES LDX FAC+S 
ESD7: Ad Al 2ERS LDY FAC+S3+1 
ESD9: Sé& SC Ba? STX DSCPTR 
ESDB: 84 8D SERS StY DSCPIR+1 
Bag <5 % 
ESDD: 20 S32 E4 +890 STRSPA JSR GETSPA 24 holds length 
ESEO: 86 SE >89 1 STX FAC+I sSave descriptor in FAC 
ESE2: 84 SF a bg STY FAC+2 
ESE4: 85 9D 2EO3 STA FAC 
ESE6s 40 24 RTS 
2895 
ESE7: AZ 22 7896 STRLIT LOX we 
ESE9: 86 OD 289? STX CHARAC Set up literal 
ESEB: 86 OF FESR STX ENDCHR ; delimiters. 
BED: GS AR 7899 STRLT2 STA STRNGI 
ESEFs 84 AC 29OO STY STRNGI+i1 
ESFi: 83 9E 29 STA FAC+I 
ESFS: 84 FF FOR STY FAC+2 
ESFS: AO FF 90S LDY #&FF 
ESF /: Ce 2904 FEND TINY gFind end of string 
ESFG: Bi AR #903 LDA ‘CSTRNGI),Y 
ESrFA: FO OC 2FO& BEQ  ZEND 
FC: CS OD FOF CMF CHARAC 
ESFEs FO o4 2908 BEOQ QOLIO'? 


mE 4OOs 
4 g 
BAO g 
BAG § 

OE s 
E409 s 
AOE g 
4 Os 
E40 s 
E4iOs 
es 
E4i4ds 
E415 
E417: 
EATS: 
E418: 
E4i1D; 
E41F s 
EA2Os 
es 
oe ba 
eae: 
E42 As 
EAS y 
EASE: 
Ep) g 
oe a 


Eos 
(ONSET 3 
ts 
E4 3H s 
E430 3 
ESP § 
E4415 
E4433 
ees Sere 
E447 3 
E4422 
4443 
es 
E440: 
E446 3 
EAAPF 3 
E41 s 


Rh hae | 
EAS s 
EAS s 
EAR? 3 
E 4S s 
EASA sg 
4S s 
EASE s 
E4Anr s 

Gils 
E4432 


ES 


D4 


ZE ND 
NZ 


re. 


PUT NEW 


JERR 


PUTEeM 


GETSPA 
GBETSPC 


Cy 


G00ee eeeen onset Onese eacte 


ENDCHR 
PEND 
fps 
Nz 


Feo 


STRNGI 
STRNG2 
STRNGI+14 
res 


STRNG2+1 
SPRNGI+] 
ree 

#2 
PUTNEW 


STRINI 
oP RAGI 
STRNGI+14 
MOVSTR 
TERR T 


HTEMPST+9 


PU TEMP 


S808 Cone Cesee Sens gases 


M 


*% 
bd 
" 
% 


ust mave string if it is in 


stack or input buffer, 


foo many temp descers? 


#HEORMtOCX-ERRMSG 


ERROR 


FAC 
O, xX 
FAC+ 1 
1% 
FAC+2 
wg X 
HO 
FAC +3 
FAI +4 


VAL TYR 
LASTET 


TEMP T 


GARFLG 
HERR 


FRE tie 
Pike FOr St 
cy 


STREND+ 4 
PU. 
SOTSPA 


f ett 
Row? 


sf 


5M 
gf 


et up temp descrintar 


lag as string 


ake space far string 
holds length 


29SS CMP STREND 
2967 ROC FULL 
2968 GOTSFA STA FRETOF 
2969 S1Y FFRETOP+ 
2970 STA FRESPC 
2971 SIY FRESPC+1 
2972 TAX 
ae a et FLA 
297 4 RTS 
Pa oe Se 
Te7e FU LOX #Oo0fMEM-ERRMSG 
Pe ae A LDA GARFLG ;Garbage dane yet? 
2978 EMT JERR sError if so | 
E44 3979 JSF GAREAG 
eSBO LDA HAO 
be ae STA GARFLG 
Ve d= Ps BL 
2983 ENE GETSFC 
“S84 GARERAG L.DX MEMNSIZ sCollect from top down 
29OS LDA MEMSIZ+1 
"GES FNDVAR STX FRETOP ;Qne pass through all vars 
2987 SrA FRETOR+1 § for each active string! 
2988 LDY #0 
29R9 STY FNCNAM+1 
2990 * Point LOWTR to below collected strings: 
Rs ee ae | 27> | TRAX. STREND: LOWTE 
299 1 LDA &TREND 
be dee LOX S&TREND+1 
2991 STA LOWTR 
Boe de de | STX LOWTR+1 
Pe dar | 4 
2992 LDS #TEMPST 
2993 LDX #>3TEMPST 
FO STA INDEX 
99S STX INDEX+i 
7996 TVAR CMP TEMPRT ;Done with temps? 
Bee das BEQ SVARS 3Go to simple vars if sa 


o fo 799s JSkR DVAR 2Doa a temp 


tas he REO TYVAR Always taken 

Load 

e1OOd SVARS LDA #? 

21Oo? STA DSCLEN 

eLOOS > | TRAX. VORTAR: INDEX 

2LOOS LDA VARTAR 

21OOos L DX VARTAR+I 

2 LOOs STA INDEX 

21OOS SPTX INDEX+] 

2e1OOs oe 

21OO4 SVAR CrX ARYTAR+I fhimple vars done? 

2LOOs EME SVARGO slantinue if mot 

FLOOS CMP  BRY TAR 

2 )OO? BREQ ARYVAR Do arrays if sa 
ES 21iOO8 SVARGO JSR DVARS :De a Simple var 

21LOO9 BEQ SVAR rAlways taken 

PLO 

SLiOlil ARYVAR STA ARYRFNT 

eLiOi2 STX ARYFNT+1 


EA4FF s 
Oe) s 


EDOd s 
od} s 
ESOS: 
ESOS s 


ESO s 
ESOC » 
E SOE sz 
E310: 
ESize 
Eide 
Epa? 


ES 19 2 
ES1iBs 


2L01S 
2LOl4 
xT OTS 
SLOTS 


21lol? 


21018 
21lOL9 


71020 


21021 
e1LO22 
>1023 
7-102 oe 
21LO2S 
LORS 
Pewee 
+1028 
be ES a 


ee 


rLOSO 


21LOsd 


2 LOS2 


2LORS 
21LO34 
SLOSS 
SLOSS 
21O37 


21038 


LORS 
32 O40 
1041 


21lO42 


21lO4s 


1044 


2LO4S 


1046 


21LO4? 


2 1LO4e8 


21049 
21048 


71048 
21O4a 
71048 
21O49 


71LOQOB80O 


% 


7iOo ca 
105 

LOSS 
be | a 
re BO be 

rae Ss 
Pe ES ele f 


~1LOn8 


2LOS9 
21O8oO 
21OS]) 


21052 
PLlOGS 
21LOS4 


ARY VA 


ARY VAS 


ARYVGO 


RPD 


ARYSTR 


GOGO 


DYVARS 


DYVAR 


SPORT eeete enete Steee sonne 
eens SOe8e enone Sones orene 


DSCLEN 
ARYRPNT 


ARYRNT +1 
STREND+1 


ARY YEO 
oP REND 
ARY VED 
GREPAS 


INDE xX 


INDEX+1 


#O 


CI NDE X) 


Arrays dane’? 


2Do one if 


not 


gALL dane 


iY 


(INDEX), Y 


(INDEX), 


ARYRNT 
ARYRNT 


¥ 


C{INDEX),.Y 


ARYRNT +1 
ARYPNT+ 1 


ARYVA2 


ARY VAL 


CINDEX) 


HC) 


sw 


a ¥ 


BUMP. INDEX 


INDE Xx 
INDE X 
BRED 


INDE X+1] 


INDEX+14 


ARYPNT + 1 


BOGO 


ARYRNT 
ARY VAS 


DVAR 


ARYSTR 


{ INDEX) 
DVARTS 


(INDEX), 


DYVARTS 


(INDEX), Y 


DYARTS 


a¥ooR: 
bi 
# 


gArray dane? 


Oo next element if mot 


yMext array if 


Always taken 


Y 


ring var? 
cp if not 


get length 


SO 


oe 


glqnare if len © 


EEO s 


eee “se oa 
ES 8 


ee 
EDO: 
ESSE s 
ees <3 
cae Pia’ OE 
hes Oe 
es 
ees aa 
Eos 


Ee4&: 
Eos s 
EE4A: 
Eb s 


ESE s 


Ea) & 


Fook s 
Foot s 


ESSE s 
ES /7O:2 


Eo 72s 


wk: 


pa 
PO 
OS 
rg 
&F 
if 
7C 
1S 
4} 
OR 
oO 
OE 
4 


SE 
SF 


= SA 


oF 


ar 


ie ae 


= &F 


wk. 
at] sl 
On 


ra 


SF 
fC) 


*. 2 
. 


2LOSS 
21066 
21067 
“1068 
21069 
21O7O 
2107] 
21LO7e 
21O7S 
21LO74 
21O7S 
21076 
21077 
21078 
21O79 
eLORO 
21LO8d 
21OB2 
219082 
21LOB2 
“LOB? 
LOR? 
21LOR2 
PLORS 
21083 
2LOBS 
21lO8s 


1OR4 


2108S 
7LORS 
2LORS 
LORS 
271 OBS 
21OB8S 
LORS 
21087 
21O8B 
2LOR9 
2 1O9O 
PLlO91 
FIFE 
2LO9S 
FLOO4 
21095 
2109S 
21097 
21098 
220977 
2LLO0O 
21101 
r71iol 
211oOl 
riiodl 
e1ilol 
rs ie 
eilo2 
211lO2 


DY 1 


DV2 


DVARTS 


GREPAS 


Senos Senne enere seune antes 


(INDEX), ¥ 


(INDEX), Y 
FRETOP+4 


DV 1 


DVARTS 
FRETOP 
DVARTS 
LOWTR+1 
DVARTS 


DV2 
LOW TF 


DVARTS 


LOW TR 


LOWTR+ 1 


Skip aif collected already 
gAbove highest string found? 
sokip if not 

Yes set pointer to it 


TRAX. INDE Xs FNCNAM 


INDEX 


INDEX+1 
FE NCNAM 
FNCNAM+ 1 


TR. DSCLEN; LENGTH 


DSCLEN 
LENGTH 


DSCLEN 


BUMP. INDEX 


INDE x 
INDEX 
RFD 


INDEX+I 


INDEX+1] 


HO) 


*¥ Pass through vars done, 
kK string found to top and go back for another. 


FE NCNAM+ 1 


YDONE 


LENGTH 


+4 


LENGTH 


rhet up for mexh var 


now move the highest 


:Garbage dane’? 


sYeo, return 
4 or 2 
2 or 4 


AD. (FNCNAM) , Y¥slLOWTR; HIGHTR 


CP NCNAM) , ¥ 


LOW TR 


HIGHTR 


AD, LOWTR+13 #O:HIGHTR+ 1 


LOWTR+ 1 


0) 


ES78: 85 97 -1102 STA HIGHTR+1 
rL1O2 43 
peek hoe | TRAX. FRETOPs ARYPNT 
ES7A: AS SF rLLOS LDA FRETOF 
70: a& 7O PL1LOF LOX FRETOF+1 
ES7E: AS 94 PL1LoOs ST& ARYFENT 
ES80: 846 95 $1103 ST ARYPNT+ 1 
rLLOs 
Ropes 20 94 DS 31104 ISR BLTU2 sMove string unm ane 
Rois A Fi 2LL1OS LDY LENGTH : fix ite descriptar 
ES87: C8 rLLOS INY 
ES8G: A 94 Lio? LDA ARYENT 
ES8G: 91 8A L108 STA  (FNCNAM),Y 
ES8C: AA L199 TAX 
ES8p: ES 95 riiid INC ARYFNT+1 
ESQF: AS 95 >1111 LDA ARYPNT+1 
E591: Ce e111? INY 
E592: 91 8A +1115 STA  (FNCNAM), ¥ 
E594: 40 88 E4 21114 JMF  FNDVAR sLoop till done 
>1115 
71116 CAT >> PUSH.FAC+3 Save ist dese ptr? eee woth terevTe 
E597: AS Al rLL1s LDA FAC+R+1 - ente? ond FAC MO, LO 
ES99: 49 r1114 FHA porting of Lett descephe- 
E394: AS aa PLLLSG LD& FAC+S 
ES9C: 48 rLLLG PHA 
PLLié 
ES9D: 20 60 DE 21117 ISR GETVAL ¢ Goble “plus") evaluate string 
ESa0: 2O 6C DD 71118 JSR CHESTR tGet desc ptr to @nd str 
Pity eee PRPULLLSTRNG] sRecover ist desc ptr 
“AS: 48 rLLL9 FLa 
_JA4: BS AB Lili STA STRNGI , 
EAG: 468 bLLig9 PLA 
E5AQ7: 85 Ac rLLAg STA STRNGI+1 3 oddr of Ee descr. 
rLLigs id 
ESA?! AO OO rL120 LDY #0 ot fen of shang: 
ESQR: Bi AB ‘1121 LDA <(STRNGI),Y ad" lengths 
ESAD: 18 >1122 ELE 5 ora 
ESAE: 71 AO 21123 ADC (FACHE) ,Y¥ 1 Fac+3cedch of 2% descmphe 
ESRO: 9O OF s112 ROO NTL 2Ok if < #100 
ESR2: AS BO [tics LOX #STRtoLNG-ERRMSG 
ESE4: 4¢ UMP ERROR 
ESEB/7s 20 DS ES JSF STRING ;Get space for caoncat str 
ESRA: 20 D4 ES 21129 ~~ JSk MOVINS sMave 2nd string 
ESED: AS 8c 113 LDA DSCFTR 
ESRF: 44 8D pee ee & LDY DSCPTR+1 
ESCl: 20 O04 EA 21 YRS JSR FRETMP 
ESC4:s 20 ES Le SPS JSk MOVESTER sMove lst string 
ESC7: AS AR otis LDA STRNGI 
ESC9: AF AC / F115 LDY STRNGI+1 
ESCH: 20 04 EG F113 JSR  FRETMP 
ESCE: 2O 2A eLis: JSF FUTNEW bet up dese 
ESDi: 40 98 UMP  FRMEVL 2 tBack for more formula 
/ . “we? ol 
ESD4: A0/ 00 1140 MOVING LDY #0 
D6: BL AB LL 4d LDA <(STRNGI),.Y 
ESDG: /48 L142 PHA jLength 
Ewney + EFPECTS ss on ST, acc z combined lens < Sng oie neat ee pt 0 (st E Sescriphe ! in Stereo) 
Fhe belds descaiphn R- SMWEZ> tshe,, i. wares shaing or pia +e by Ficmo co. owe. a Plagged 


AS Op ste’ 99 


ESD: 
ESDAs 
ESDC: 
EdD: 

IDE 3 
eSeOr 
ESE1: 
ESEZ 
foi 4s 
Ee 8 
ESE 73 
ERED s 
EOE As 
EOEBs 
ESEDs 
ESEF s 
ESFOs: 
ESF 23 
ESF St 


ES 4 s 
ESF Gs 
ESS s 
ESF As 


ESCs 


ESF Ds: 
SOC g 
P On? 
. whey 
ESO6 s 
E S08 s 
EOOE s 
E60C: 
ESOE : 
FS&1lO: 
EGli: 
ESél2: 
ES1i4: 
E615: 
E616: 
E618: 
E619: 
EGTA 
E6iBs: 
E61D: 
EGIF : 
ES21is 
EG2S3 
E4253 
E6263 


EG&27 : 
293 
Es 


tGiDs 


Ayr 


O22 


; DD 


md 


MOVSTR 


2 MOVESTR 


* 
fonte 
font 
ct 
“I 


~ MVS2 


oe. 


a FRESTR 


PREPAC 


FRE TMP 


9090 eee Seese cence erase 
oenee Sense 48086 eoene ereee 


Page 40} stamsaims 


(STRNGL), ¥ 


Put string pointer in X,Y 
(STRNGI),¥ 
sRetrieve length 
INDEX Put pointer in INDEX 
INDE A+1 
MYSS 
(INDEX). ¥ 
(PRESPI)y Y 
MVS2 
BUMP. FRESPC 
FRESPC 
FRESPC 
RFD 
FRESPOC+1 
CHES TR slash regult a string? 
FACL+ :Get descriptar pointer 
EAT +4 
TNDEX :Free temo descriptor 
INDE X+1 : whose pointer is in (A.Y). 
FRETMS Free descriptar if temp 
:Remember if temn 
#0) 
(INDEX), ¥Y 
gsPush length 
(INDEX), ¥ 
:Get pointer ta string in *,¥ 
(INDEX), ¥ 
sRetrieve length 
y and status 
NE Branch if mok temp 
FRE TOR+1 sWas it the lowest string 
NE : im memory? 
FRE TOF 
NE ghranch if mot 


: Delete" 
BUMP. FRETOP 
PRE TOP 
FRETOP 
RFD 
FRETOP+1 


string if $0 


ES2F s 
EG30)s 
FEQset 

Ae 


E6353 
EG37: 
EOSS s 
E638: 
EGS SDs 
EGS s 
EO&41 
RS43 3 
EO“ s 


EO443 
EO49 3 
ESA 3 
EOS48 s 
ES4D2 
E450: 
ESS: 
FOSS: 
E655: 
Eos 
EOS 7 % 


ESSA e 
7 NSD 8 
we wd § 
EOGSOs 
ES dsi2 8 
FE SS4 2 
Fe Obs Ss 8 
EO463 
EOG67 
EOSOE s 
oS S s 
E S&C: 
E6GE 2 
E670: 
E673! 
os 7 4s 
E4738 
EGY 4: 


EG//: 
E&79s 
ES7B: 
RS /7Ds 


EG/Fs 
E SEOs 


ES: 
EOS s 


4 


Eo 


*. : 


FLISO 
21Gi 


PLLTa2 


21L1I9S 


PLI94 
a 2a to 
oe Oe 
Pear? 
era7o 
ae Be ae 
PALZOO 


‘Levl 


21202 


21203 


21204 
21205 


2LBZOS 
21207 
21208 
21209 
PABLO 
co Bad a 
F212 
Pigeieo 
21214 
21215 
Yil“eie 
L217 
ca eo 
Plea? 
21220 


Pees 


age hae hap | 


21222 
De 


hee ofoee “eoo® 


a fice Toate 
- 1 his Bas 
r1225 
2122 
ce Ba ae 
1228 
eee { sat gi 


efiee shoe 


a ae ear 
se tae 


21239 


el 24o 


ME 


FRETMS 


RTS 


CHRSTR 


LEFTSTR 


INS 


INS2 
INSS 
INS4 


BRD 


JSR 
CMF 
TYA 
RCC 
LDA 
TAX 
TYA 
PHA 
TXA 
PHA 
Jor 
LDA 
LDY 
JSR 
PLA 
TAY 
PLS 
CLC 
oe 
a 
RCC 
ING 


TYA 
Jar 
MF 


71i241 RIGHTSTR JSR 


Y Held address of string 


INDE X ths 
i; and A halds length. 


INDE X+1 


LASTRT +1 
RTNS 
LASTRT 
RT NS 
Teer tb 
#3 
LASTRT 
#O 


Free temp descriptor 


CON INT rCanvert to byte in xX 
rhave it 
# i gGet soace for string of length 1 
STRSPA 

sRecall # 
He) sPut im string 
(FAC+1), ¥ 


PUTNEW 


INSTRNG 
(DSCFPTR),Y 


INS2 
(DSCFTR).Y 


STRSPFA 
DSCFTR 
DSCrTR+ 1 
PRE TP 


BUMP. INDEX 
INDEX 
INDEX 

BPD 
INDEX+] 


MOVESTR 
PLT NE 


TINSTRNG 


E6SS: 18 ei sae i 

ES8A: Fi ac SL e4ak SRO (DSCFTR),Y 

E6SC: 49 FF eiZ44 FOR #8FF 

FSGe: 40 60 ES 21245 JMF ING 

a “124s 

ES9i: AY FF -124?7 MIDSTR LDA Farr 

ES&o3: 8S Al 21249 SrA FAC+4 

E695: 20 B7 O00 31249 JSR CHRGOT 

E696: CY 29 ae BF er @ (MF fe)? 

ES?As FO OS Pe ae BI REQ ONSS 

E59C: 20 BE DE 51252 JSR CHECOM 

EG?Fs 20 FS EG 71253 JSR GETRYT sGet 2nd param 

EFSAZ: 2O BS ES 71254 INSS JSF INSTRNG 

EéASs CA 71295 DEX 

EoASs 8A 712356 TXA 

EOoAavs 4h Pe 4a Ps He 

ESA8: 19 -1L 2s 126 

EOGAGP: Aa OO Plea? LOX #0 

ESAR: Fi at TL ZSO SEC <(DSCFPTR), Y 

EO6&AD: BO Re ~1L2Z24) BUS INES 

ESARs 49 FF 2iZée2 EOR der F 

Fébis Ch Al PD Gg oa 1" CMP FAl+4 

EGS: FO ES “1254 BCC INS4 

ESEHS: AS Al 21265 LDA FAL+4 

Ron? s BO AF +1266 BCS INS4 :Always 
SiZe? 


2I268R * Comman routine for LEFT&, RIGHT#, MIDS toa check 
PIiZ69 * for "3", pap return adres, get descriptor pointer, 
Pi27O Kk and get ist parameter of commands 


a. Pies th 
~289: 2O BE DE +1272 INSTRNG JSR CHECLS 
EGEC: 68 tials PLA gRull return address 
EOokD: AG SLB 4 TAY g and Gave it 
EOoRE: 68 aD aE fe” Pie 
EEF: 85 Fi Piao STA LENGTH 
FoCi: 68 7AZ77 FL yPop previcus return adres 
E6C2: 68 21278 PLA § (from GOROUT), 
E603: 68 Plas 7 PLA sRetrieve let parameter 
Rél4: AA 271i 280 TAX 
Pas Ors = BI are PULL aCe rR 
ESCS: 68 71264 PL es 
E6C4&: 85 SC 7128) STA DScCriTr 
ES6Clhs 6 71281 Pe 
ESC9: 85 &D 312ai STA DSCRTIR+I 
Sila. 244 
ESCH: AG Fi L262 LDA LENGTH 
ESCDs 48 7IZBS PHA gPush back return adres 
E4CE: 96 7124 TYA 
EéClrs 48 21285 hey 
ES&DOs AO OO 71 2as LDY FO 
E&De: 8A ee Os Fs TXA ;iransfer let parameter ta A 
ESD35s FO 1D ~ia2ea REQ GOT terror 1¢ © 
ESOS: 60 71289 RTS 
2LSPO 
FXeDG: 20 DC EG 71291 LEN JSF GETSTR 
SDS: 40 O1 ER 31292 JMF OSNGELT 


EDC: 20 FD ES 71293 GETSTR JSR FRESTR 


stett seeet Pace ff seuescenes 


EOoDFs AB OG ~LAe4 LOX #oO 
EGE: G6 11 FAZIO SPX VALTYF 
RoE Ss AS ~1i2Z96 TAY 
EFSoE4s GO he ke os Rts: 

1298 | 
EGES: 290 DC E6 31299 ASC JSk GETSTR rGet string otro oin LINAUM 
ESES: FO O08 2) SOO REQ GOT gErrar af length © 
EGES: AO OO ~1301 Ly HO | 
S6EC: Bi SE a Ghe LDA INDEX), ¥Y sGet ist chr of string 
ESEE: Ag rLoOs TAY 
EGER: 40 O1 ES +1304 JMF SNGELT sFloat it 
EGF2: 4€C 99 E1 31305 GOI JMP ITOERF 

2x 1LS06 

eerak 20 BL OO 21307 GTRYTC J 
ESFSE: 20 &7 DD +1308 GETRYT J 


Ro CHRGET 

Ro FRMANUIM 

ESFB: 20 08 E1 271309 CONINT Joko ME INT 

RoFEs AG AO 71 S1Q LDX FAC+3 eeu? 

E7OO: DO FO 2Laii BENE GOTQ sEerrar af not 

meOes AG Al y13s12 LOX FAC+4 

E704: 40 B7 OO 1315 UMP CHRGOT 
ei si4 

E707) 2£O DC EG 212315 VAL JSR GETSTR ;Get pointer to string im INDEX 

EPOAs DO O3 219016 RNE VLR 

BYOC: 4C 4& ES 31317 JMF  ZEROFAC gReturnm O af leangth=o 
71516 Vie 2e> TRY. TXTPTR:s STRNGZ 

EYOF: A&G BR F1I3Sis LOX TXTPTR 

Eeiis Ad RY ran eee Eo LDY TATFIRG! 

e7ide 8S AD “1318 STX STRNG2 

E7iS:s 84 AE 2eiSis STY STRNG2+1 


~/17: AS SE FLOL LDX INDEX 
E719: Sé BS 21320 SPX TXTPTR gFPoint TXTPTR toa start of string 
E/71B: 16 gt re | CLC 
E7iC: 4&5 Se. *1 322 ADC INDEX Acc Length 
E7ie&:t SS 60 FA SaS SFA DEST sPoint DEST to end of stg * i 
e720: AG OF 2is2 LDX INDEX+] 
E722: 86 BY Pat Bs de Sim » tTALE ORF 
eve24: FO Of 21 S2é BCC VLS 
Ev2o: ES 21327 TNX 
E727: 86 61 21328 VLG SIX Desi+i 
E729e AO OO Mia? LDY FO 
E726: B1 50 FLSOY LDA «DEST, ¥ :Get byte following string 
EY2Ds 48 21331 PHA shave it 
Evaeke AYP OO 21S32 LDA FO 
E7501 Fi 60 PiSow STA (DEST), Y gPut Oo there 
E732: 20 B7 00 71354 JSR CHRGOT 
E733: 20 4A EC 313335 JSR FIN yEvaluate string 
E/ 3653 6¢ ho SS PL es 
EP 9s AO OO Pa BA Wf LDY #0 
E73Bs Yi 60 * Lae STA (DEST). Y gRenolace byte at end 
SLSs9 POINT ree TRXY.ASTRNGS: TATRPTR 
E7SD: AGS AD 2ISS9 LDX STRNG2 
Evokes Ad AE 21339 LDY STRNG2+1 
E74is @6 ES ~1339 STX TTXTPTR 
E743: 84 ko ries? STtY SIP IRSt 


E74h8 60 21 S4oO RTS 


a 8 ae ee ee ee, 


: 


E74&s 
mY 4S s 


Eas 


4F 


E/oet 
i? bg 
E7563 
E7258 8 
E7oBs 
Ee 75D 
E/7or § 
E71: 
E733 


E74 s 
E7456: 
E7478 
E749: 
EP SAR 
E/SD: 
E7S&F : 
E771 
ES 723 
Es 7 St 
E7/ a 
E776: 
E778: 
.. Br 
E77Ex: 
E7/P sy 
E781: 
E7833: 


E784 s 
e787: 
E7S9% 
mY oks 
E/SE? 
E79O: 
E/9Ss: 
E79S: 
E797: 
E7993 
&/958s 
E79D: 
E79F : 


~~ \ 


EB 


SF 


ES 


ad 


<s 


Oc) 


E7 


SLR41 
yLR42 
SL B4s 
s1B44 
yLR4S 
PAB4S 
PLB47 
71849 
SL R49 
SL B50 
>13551 


2LSS2 


*%, we hoe Ar 
Rs “ec Sead %ect 


L354 
Fico 
PL ooe 
Pioar 
>133S8 
2ISS9 
*1360 
1361 
*1362 
21363 
21264 
~isS6S 
e1 346 
71347 
21363 
eT BSS 
21270 
ae Os a | 
21372 
PITS 
21374 
2S i37s 
21376 
Le Pe oes 
71378 
* L379 
21 SBao 
~isei 
21382 
+1383 
71384 
SL Seo 


2L SES 


ib Gikj es: 


~/ 
rr 
ad 


Serre e000e Senee seees sence “0 
PeEee SONS Cesee Senee cones P00Se FEED erese sence aeons 


GTNUM JOR 
JSF 
JSR 


JMP 


FP RMNUIM 
GETADR 
CHE COM 
we tery: 


COMEY TE 


GE TAD LDA 
CMF 
BGE 
Jok 
LDA 
LDY 
ory 
STA 
RTS 


rat 
HED 1 
GOTO ferrar 34° not. 

QINT sCanvert toa integer 
PAC +S go anc moave it 

FAC +4 
LINNUM : 
LINNUM+1 


sFAC <= $F FFF? 


toa LINAUIM 


PEER LDA 
PHA 
LDA 
PHA 
J&R 
LOY 
LDA 
TAY 
PLS 
SrA 
PL 
ara 
J MF 


LL. TNAUIM gProtect LINNUM 


LINANUIM+ 7 


GETADR 
#O 
CLINNUM) , ¥ 


;Retrieve LINNUM 
LINNUM+ i 


LT MAUIM 
SNGFLT 
PORE JOR 
TXA 
L_DY 
area 
RTS 


STNOM 


+O) 
CLINNUM) . Y 


WATT GT NUM 


Jor : 
FORRENT 


STX 
LDXx 
JSR CHRGOT 
REQ 
JSR 
STx 
LDY 
LDA 
EOR 
AND 
REQ 
RTS 


Get address in LINNUM | 
& specified mask in FORFPNT 

Inversion byte specified? 

eRranch if mot 

gGet at 

ghet up 


COMEYTE 
FORFENT +1 
#0 
(LINNUM) , ¥ 
FORPNT +1 
FORFENT 

WTS 


imverscion byte 


:Get byte at address 
:invert as specified 
sMagk at 

gLoanm till mot oO 
RTN4 


FUT AFPSOFT ITI 
KKXKKKKKKKK KKK KK KKK KEK KKK RK KKK 
x 
Bf Anplesaft - 
x 
*¥ Copywrite Aople Camputer, 
¥ Inc. and Microsoft, Ine. § 


Part ITT 


w HM MH MW MH 


E77 ACs 
EVAR: 
E7A4s 


EAT s 


EVAR: 
7A: 
E/7AE s 


BF BAG) s 
EVEH2: 
E7E4s: 
E/7RS&: 


E7ES: 
E VEC s 


a? 


he 


= £9 


rs 
~~ 


td hoe 


o “ne “at rl “a “xe ‘uF we" “as 
Fonte few fou fone fee fF FE} J 
i 


Pt ee et te 
OON Oo 


90008 DORSS COnee Coens etene 
S0tbe b00te seese Seeee aeeer 


Fagqe 6c 


eocen seeee eotee 


¥onmot for publication or 3 
K distribution. iK 
x x 
KEXKEKKKKKKKKEK KKK ERK KEKE RK KKK 
* * 
K Floating Point Routines * 
¥ ¥ 
K $E7AQ — $F 1 D4 * 
X x 
KMK KKK KKK KEKKEKKKKKK KR KKK KKK SE 
FAD DH LDA FHALF sFACt+1/2 —> FAC 
LDY #>HALF 
JMF FADD 
PSlik JSR CONUPE gload ARG fram (4, ¥) 
FE SUET oo WNEG.FACSGN :s ARG - FAC -> FAC 
LDA FACS GN 
EOR #BFF 
STA FACSGON 
EOF ARGSGN 
STA SONCER 
LDA FAC 
JMFP  FADDT 
ADO Joe SHIFT 
BCC ADS 
FADD JSF CONUFE @f(A,Y) toa ARG 
FADDT BAE ADI 2 ARG + FAT -> FAC 
JME  MOVFA gif FAC=O just move ARG over 
ADI LDX EXTRAFAC sExtra byte for precisian 
BSTX EXTRASYV goin all FP routines. 
LOX HAR gSeto up to shift ARG 
LDA ARG 
AD TAY 
BEQ RTN4 gif ARG=0 exit 
SEC 
SEC FAC Get diffnce of exp 
REQ ADS :Go add af game @xp 
BCC ADS 
BTY FAC ;One@aky exchange 
LDY ARGSGN 
STY FACSGN 
ROR + SFr 
ADT #O 
LDY #O 
STY EXTRASY | 
LDX #FAC goet up toa shift FAC 
ENE AD4 
ADS LDY #O 
STY EXTRAFAC 
ADA CMP FEF S gsHow many bites to shift’? 
EMI ADO ;Branch if mare than 7 
TAY sindex toa # of shifts 
LDA EXTRAFAC 
isk 1,X 


Sneee whens feses etnee eeeee 


= Page &° 


° 


E7F7: 20 
E/FAs 24 ARB 2&1 ADS 


SHF TR 


SGNCER 7 sian? 


Evrt: 10 &7 b2 BRL ADMAN Yes, add mantissas 
ELFEs AO FD ros LDY #FAC 

OO: EO AS 2h 4 CerX #FARG gWhich was adjusted? 
EGO2Zs FO 02 b= bn REQ SUBMAN gif ARG, do FAC-ARG 


ERO4: AO AS Phd 
EGOS: 38 2h? 
ESO7:s 49 FF rh 
E809: 65 92 2&9 
ERO: BS Ac rae) STA 


HARG gif FAC, do ARG-FAC 


SUEMAN 
#EEF 
EXTRASY 
EXTRAFAC 
SE.4,¥24, %:FAC+4 
ESOD: BS 04 OO 271 

ESio: FS 04 »F 4 SRC 


EQ12: 85 Al 274 STA FAC+4 

>71 ae 

>72 e>> GELS, Y23,X¢FAC+S 
EQ14: BF OF OO 272 LDA 3.¥ 


ES17: FS oz +72 SRC 3, X 
EQ19: BS AO +72 STA FACS 
tes ped 
+73 >> GEL 2,Y:2,XsFACtH2 
ESif: BY OF OO 373 LDA 2, 
EQIE: FS o2 “73 SBC 2, 
E820: 85 OF 273 STA FAC+2 
“73 _ 


EB222 BF OL OO 274 
EB25: FA Ol 274 
“eed et FE ee 4 


ERS: RO OS ar a SENT BCS SIGNIF 


ESB2B:s 20 GE ER 275 
EEREs AO OO hay ad SIGNIF 
EBAO: 98 ae = 
EQS]: 


NEGF AC 
LDY FO rGhift uo siaqnif cdigit 


sCounting shift in & 


ESS2: 
EaS4: 
ESS: 
ESSa: 
ESSA: 
ESscs 


Pictur 


FAC + I 
ERS 

FA +i 
PAC +] 
FAC +S 
FA + 


ESSE: AS PRS FAC+4 
ER4O: 84 AO 287 STX FACtS 


RE4 is 
ER 4s 
EE44 : 
Ee4e: 


EXTRAFAC 


FAC+4 


EX TRAP AC 


sRepeat till mot oO 


;2@r°O0O extra byte 


OR ao 4 
ES4A: CO 2O Re a CME #ax4 yDone 4 times? 


ER4C: DO E4 293 ENE FLOOF gLoap af mot 
ER4E: AY OO Pd ZEROFAC LDA #O 
EaSO:s 85 9D >9S Shar AC STA FAC 
EaSe2: 8S Az 29S AtarFACts STA FACSGN 
ERS42 60 297 RTS 
ibe 293 
soe 63 92 o99 ADMAN ADI EXTRASY GAdd mantisggas (frac parts) 
ESS7: 85 AC 21OO STA EXTRAFAC 


21Ol eee AD. FAC+4: ARG+43 FAC+4 
EGS: AS Al 2LOl LDA FAC+4 
ESB: 65 AG 21Ol ADC ARG+4 
ASD: 85 Al 21O) STA FAC+4 


2102 eee AD.AFAC+A;ARG+3;FAC+3 
BSSF: AS AO 2102 LDA FAC+S 
ESoi: 65 AB 2102 ADC ARG+S 
EES32 85 AO 2102 SrA FAC+A 


LOR >>> © AD. FAC+2: ARG+2:FAC+2 
EQ45%: AS OF LOR LDA FAC+2 
EG47: 65 A7 LOR ADC ARG+2 
EQ49: AS OF LOR STA FAC+2 


2 Lod eee AD. FAC+LT SARG+I Ss FAC+I 
EESB: AS GE 21lo4d LDA FAC+I 
EBSD: 65 AG 21O4d ADC ARG+I1 
EGSF: 65 VE 2104 SrA FAC+I 


EQ71i: 4C @D ER 2105 IMP ERE 


E74: &9 Of 271907 FRI ADC #1 Count bites shifted 
EE/7S: OS AC 7108 ASL EXTRAFAC 

EG/Bs 264 Al 21a9 ROL FAl+4 

Ea7As £4 AO eLid ROL FACS 

ES7C1 26 SF eidi ROL FAlI+2 

ES7Es 26 FE PS ROL FAC+I 

ESGHO: 10 F2 eweho FRA BrL. FRG :Repeat till FAC+1 neg 
“%82: 38 7114 SEC 

_3833 ES ¥D Poe ae Be SEC FAC reais exponent 
ESS: BO C7 21lléd RCS ZEROFAC 

E887: 49 FF Sit? EOR #&FF 

ESS89: 69 O1 e1lig ADS #1 

EGER: BA YD ells STA FAC 

EBSD: FO OF 21290 FRS RCC RTNS 

EBSF:s ES 9D Rm es ROUND INC FAC 

ES9is FO 42 21iz2 BEQ OVERFLOW 

ES93: 66 FE 2iZS ROR FAC+i 

EGIS: 66 SF os ROR FAC+2 

ERS? : £4 AO Pia ROR FAAS 

ESS9: 44 Al 2126 ROR FAC+4 

ERR: 64 AC rie? ROR EXTRAFAC 

ESB9D:s 60 2iZe RINSE RTS 


e1lSO NEGFAC o> NEG, FACSGN 
ESSER: AS AZ 2LSO LDA FACSGN 
ERAOQ: 49 FF 2130 FOR #8FF 
ESA: 85 Az 2130 STA FACSGN 


NEG2 eee? NEG.FAC+I 
LDA FAC+I 
FOR SFr 
STA FAC+I1 


EBA4: AS GE 
EEAGs 49 FF 
ERAB: SA VE 


ha 


wy * oa ro * af . wf *. s 


“es % me OS : 
oe 


bed feb ied ied teh tb fe 


23> NEG.FACt+E2 
LDA FAC+2 


Pp OR ee ee ee ee 


ey “a 


ESAA: AS SF 


ESAaC: 49 FF >132 EQR  #6FF 
EAE: 85 9F y1B2 STA FAC+2 


| > o>> NEG. FAC+S 
BO: AS AO PL SS LDA FAC+S 
ESR2: 49 FF PAB EOR #6FF 
ESB4: 85 Ao >133 STA FAC+S 


> >> )©6 NEG. FAC+4 
ESE4: AS Al PL B4 LDA FAC+4 
ESES: 49 FF +1 R4 EOR #$FF 
ERRA: 85 Al 14 STA FAC+4 


ean ooo NEGLEXTRAFAC 
ESRC: AS Ac 21 as LDA EXTRAFAC 
ESRE: 49 FF 21 SS SOR #8FF 
ESCO: 82 AC 21 As SrA EXTRAFAC 


FSCS: ES AC 21d INC EXTRAFAC 

EGC4: DO OF 21a? BNE FRTNG 

ESACG: ES Al PISS FLUSEFPS INC FAC+4 gAdd carry fram EXTRA 
EBCRs DO Of 213g BNE RING 

ESCA: ES AD #140 INC FAC+S 

ERCOC: DO O&4 ei 44 BNE FTNG 

EeLE) EG FF 2142 INC FAC+2 

ESBDO:s DO O2 214s RNE FTNS 

ESD2: ES FE 2144 INC FAC+I 

ERD: 60 1i4 RING RTS 


SOS AZ 45 7147 QVERFLOW LDX #OVFLOW-ERRMSG 
~JO7: 40 12 D4 3148 JMP ERROR 


E@DA: AZ 41 150 SHFETRES LDX #RESULT—1 
FGDC: B4 O4 SiSi  NXSET LDY 4, X 
ESDE: @4 AC S152 STY EXTRAFAC 
E@EO: B4 O% S153 LDY 3,X 
EGE?: 94 04 154 STY 4,X 
EGE4: B4 oO? oe at LDY 2,X 
EQE4: 94 OF pa eat STY 3X 
EQES: RB4 O41 S157 LDY 1,%X 
ESEA: 94 OF »1 59 STY 2,Xx 
E@EC: A4 A4 159 LDY FPGEN 
ESEE: 94 O1 1 GO ery 1.x 
EGO: 49 O08 141 SHIFT ADC #8 ©Ghift 1,X% right #bits in 
EGF2: Bo ES +142 EMI NXSET 
EGF4: FO ES 3143 REQ NXSET 
EGF4: EP O8 1&4 SRC #8 
EGFa: Ag 21S TAY 
EQFS: AS AC LSA LDA EXTRAFAC 
EGFR: RO 14 $167 RCS SH 
EQFD: 14 O1 414R SHI AGL 14% 
EQFF: 90 O72 S149 RCC SH? 
E901: FS O14 eA 7O INC 4,X 
EQOR: 7S O14 171 SH2 ROR 1,X 
E905: 76 O14 A7o ROR 41, X 

OF: 7& 02 S173 SHFTR ROR 2, X 
E909: 74 OF S174 ROR , x 


E9351 
EF572 
EP SAE 
E9SSC: 
EQGSPF t 


E41 sg 
EP44 3 
OSA ES 3 
. $463 § 
E OAR: 
EO4Ds 
iE OAF s 
EPSOs 
al se 
ESS s 
E934: 
EOE s 
ESSE: 
E9SD: 
ESSF : 
E962: 
EPS4 
ESS6: 
E9S&9: 
ESSER: 
E96&D: 
E970: 
E972: 
E74: 
ES 7/3 
E978: 
E97B: 
ES7Ds: 

FF 
ESS s 


DO 


4 


ore) 


27a 
2176 
2177 
2178 
BaP ss 
21 8oO 
PL 


7182 
>1983 


2184 


2185 


2184 


2187 


~1 Se 


ao oe 


2190 


oo ee ge | 
21AG2 
ae a 
a ie 
219s 
2719S 
2197 
21S 
2199 
BOO 
eed 
reo? 
ee 
ees 


22S 


2208 
PaO? 
2208 
Ped 
2210 
e211 
Rg 
eels 
2214 
Pes 
221d 
ae as 
Pe eo 
ae Be 
ee 
ee 


“ee, oy o e} 
O° ce sheen oben 


SHS 


ONE 


LOGSER 


SOR al + 
SOR two 
HAL Pred 


LOGtwe 


LOG 


EIQ 
| 2 


iy 8. eS 


PML + 


ROR 
ROR 
INY 
BNE 
CLC 
RTS 


HE. x 
DFE 


MEX 


Hi xX 


HE x 


HE X 


HE: xX 


HEX 


HEX 


HEX 


JSR 
REQ 
ad 
JMF 
LDA 
SEC 
PHA 
LDA 
ora 
LDA 
LY 
JSR 
LDA 
LDY 
JSR 
LDA 
L_LDY 
JSR 
LDA 
12 ¥ 
Jak 
LDA 
LDY 
wt at 
PLA 
JSF 
LDA 
Lay. 
JS 
BNE 


4,X 


SH 1 


a a a a 
rr a a i i hi) 

— 

Pa, ) 


/FOESOCR7S 
BOLSPRORS4 
BO7 ESAS S14 
AAO RAO 
BOSRO4PF S34 


Bimso4e Rag 


a  ) 


Ce ee ee | ee 


BOSLZ2L217F8 


SIGN 
BIQ 
LG2 
TORRE 
FAC 
HE 7 


HERO 

FAC 
#oEORH al 
# SOR al ¢ 
FADD 
H#SOR two 
#>SORtwo 
FDIV 
HONE 

#> ONE 
Fle 
#LOGSER 
#1 OGSER 
QOODSER 
#HHAL FPned 
# HAL P ned 
FADD 


ADDACC 
#LOGtwe 
#oLOGtwe 
CONUFPE 
Pt 


eenes setee 
eens eaten 


sindex to # of coefs: 


gNatural dag af FAC 
FArgument must he + 


Gave expanent 


sNormalizge between .3 and 1 


:Compute via series of add 
y; powers af 
» (SOR (2)X-1) / (SOR (2) X+1) 


rAdd original exponent 


(A,Y) to ARG 
FAC * ARG -> 


8 
8 
8 
ty 


FAC 


E984: 4C EP EQ 3225 JMF  RTN? 
rae 
E937: 20 Of EA 3225 FMU ss ADE XF 
EVRA: AD OO Pe LOA #O 
“80: S32 62 Rr ae 4 SrA RESULT 
t9Sb&: 85 63 rca STA RESULT+1 
E790: 85 64 ae | StA RESULT+2 
E92: 8S 65 reo STA RESULT+3 
E?9°4: AS Ac 220 LDA EXTRAFAC 
E996: 20 BO ES +232 JSF FMI 
E?O9: AG Al bate Ha’ LDA FAC+4 
E99ER: 20 BO ES +234 JSR FMI 
E°e9E: AS AO ae a1 es 
E°AOQ: 2O BO ED ° Jak FMI 
ESAS: AS 9F rae LDA FAC+2 
E9AS: 20 BO ES +238 JSF FMI 
EAB: AS SE 2259 LDA FAC+I 
E9AA: 2O Ba ES 2240 JSR FM2 
EVAD: 40 FS EA +241 JUMP RESSFAC 
ee 4? 
ERO: DO O38 +243 FMI ENE FM2 
E?Re: 40 DA ER +244 JMF SHFTRES 
ee 4S 
ERS: 44 ee4h  FM2 iSR 
ESBS: OF 8O ed? QORA #H#SAO 
EVES: AS 2248 FMS TAY 
ESB9: 9O 19 ee 4? BOC FM4 
ESBR: 18 ie ay, 
wads oo | OAD. RESULT+23: ARG+4s RESUL T+3 
PRET: AS S&S rel LOA RESULT+3 
. ABE: 63 AY yew ADM ARis+4 
EF9CO:s: RB SF YLok STA RESULT+3 


Pad 


i 
a 
iS 
iD 


J RIP 
qt ie 
Sit 


2 IT oh 


ae iia 33> 06 ADL RESULT+2:; ARG+3; RESULT +2 
E9C2: AS 64 Phe LDA RESULT +2 
E?C4: 65 AR aren ADL ARG+tS 
E?Ch: 82 44 Pade STA RESULT+2 


ne, POR Ee Od 
oP sibs tin? Bees 


Pd vo? 6 AD. RESULT+13ARG+2;,RESULT+1 
E?C8: AS 63 rae a LDA RESULT+1 
ECA: 65 A? rai Bas ADC ARG+2 
ECC: 85 63 aan Bi) STA RESULT+1 
Ras Fs 28, 
rae >> AD. RESULTS ARG+1; RESULT 
ECE: AS 62 Peo LDA RESULT 
EVDO: 65 AG Pat ADT ARG+I 
E?D2: 85 62 Pet STA RESULT 
ra ae 
EPD4: 44 62 vega FM4 ROR RESULT 
EDS: 44 63 cata =) ROR RESULT+1 
EVDS: 64 64 reo? ROR RESULT+2 
EFDA: 64 62 eae = ROR RESULT+3 
EDC: 66 AC bre a ROR EXTRAFAC 
E9DE: 98 Peed TYA 
EV? DF: 44 22O | Lor 
EQ: DO DS Peon BNE FMS 
BPE: 6O 2263 RTN? RTS 


4 
65 %* Unpack mumber at (A.Y) and move tao ARG: 
bs & 


ESES: 85 SE eee?  CONURE SrA INDEX 

3 a4 OF tm SPY INDEX+1 
EPE 7s AO O44 Peo? LDY #4 
EYES: B81 SE ree LDA <CINDEX), Y 
EVER: BS AS oats SrA ARG+4 
E?ED: Ba Rarer BPs DEY 
ESEE: Bl SE Yer LDA CINDEX),Y 
EPO: BS AB eae A afrA ARG+3 
ESF2: 8S ae feet DEY 
EVrSt Bi SE Pel & LDA (INDEX), Y 
EOFS: 82 AZ Bae oF a SrA ARG+2 
ESF 73s 8S 2a? 8 DEY 
EVrG: B81 SE a le LDA CINDEX),Y 
E?FA: BS AA Pe SrA ARGSGN 
EPFC:s 42 Az eed SOR FACSEN 
EOFE: 82 AB Pee SPA SGNCrR 
FAQ: AS AA pas Bo LDA ARGSEN 
BAOZ: OF BO 224 ORA #BAO 
EAO4: 5 AS rtm be SrA ARG+] 
FAQS: BE Peas ey 
EAO7s BL SE itm LDA INDEX). ¥ 
BAO: 8S AS Pa wf STA ARG 
SAO: AS FD Pea? LDA FAC 
FAOD: 60 Pe PO) RTS 


BAO: AG AS 2292 ADEXF LDA ARG 

co NIO:1 FO 1F 2293 ADEX? REQ ZERO 
412: 18 ei 9 4 Ci. 

EALS: 62 YD Ra de ADC FAC 
EATSs FO O4 rere BCC ADEXS 
EALZ7s 3O 1D Be I EMT JO¥V 
EAS: ie pte d= CLC 

PALA: 2C Pare Men ek sirick to branch 
EALR:s 10 14 eeOO ADEXS BRL ZERO 
EAD: 4&9 8O rool ADI #880 
EAIF: 85 3D O02 S7A FAC 
EAZI: DO OS res ENE ADEX4 
RASS: 4C BA ER 2304 JMFP AtarACS 
EARS: AS AR 7308 ADEX4 LDA SGNCPR 
EAL: ah Az POS STA FACSGN 
EASA 6&0 peel Os RTS 


EASE: AS AZ 2309 OUTOFRANG LDA FACSGN 

EAZD: 49 FF e310 EOR +#eFF 

EASR:s 30 OS folkd BMT JOV girrcor af positive # 
EAST: 68 7312 ZERO PLA 

FASS: 68 bo Be PLA 

RASS: 40 4E ES +314 JMP  ZEROFAC gReturn Oo if meqative # 
FASS: 40 DS ES +315 JOV JMP OVERFLOW 


27315 
SSiyY € Routine to multiply FAC by 10: 


—_ 
139s 20 63 ER 2319 MULIO JSR MOVAF gCoapy FAC ta ARG 
EAS Ts AFA bees ©) TAX gA-reqg holds FAC 


ait oe ce ae Fk} 2 Jo Seam 


EASD: FO 10 Pe REQ RTN@ gEx it if FACHo 
EASF: 18 Pe CLC 
EA4SO: 69 O2 Poe ADC #2 goimulate *4 
~~ BRO Fe eed RCS JOV 
444: Az OO Ran LOX #0 
kATG: 84 ARB es SPX SGNCrR 
FA48: 20 CE EV 3327 JSR ADS ePACKS + ARG -—> FAC 
EAIR: ES 9D ei INC FAC r= mult by 2 
EAD: FO EF? ae REQ JOV 
EASF:s 60 PASO RTNG RTS 


EASO: B84 20 a0 
FASS: O89 60 EE NIM TO HEX R4POOOOOOD 


Cr a i i ie bie) 


S334 % Routine ta divide FAC by 10: 


FASS: 20 63 ER 2336 DIVIO JSR  MOVAF gCopy FAC ta ARG 
EAT: AP AO POS? LDA #NUMITO gaet up toa put 
EASA: AO EA 2oa8 LDY #>3NUMITO fF 1O aim FAC 

EASC? Az OO RTS LOX #O 

EASE: 86 AR eGo DIV SPX SGNCPR 

FASO: 20 FS EA 2341 JSR MOVEM gPut (A, Y) in FAC 
BASSI: 40 69 EA 2342 JMP  FDIVT @Divide ARG by FAC 


EAGS: 2O ER EF 2344 FDIV JSF CONUPE g{A,Y) -> ARG 
EASES: FO 7S 24S FDIVT REQ DiVe2 gARG/SFAC -> FAC 
BAGH: 20 72 ER > 34é JSF RNDE 

EASE: AY OO i rd LDA FO 

EAYO: 32 7 O48 SEC 

APN71i3s ES FD 249 BECO FAC 

. 4733 83 9D ee STA FAC 

EAS: 20 OF EA FSSl JSF ADEXF 

EAYas ES 9D Poe INf® FAC 

EAA: FO RA bar REQ JOV 

EAC: Aa FC 24 LOX #8 100-4 gLocoping index 
EAVEs AG Of 2S LDA #1 

EAGO: Ad AG Food FHA LDY ARG+] 

EARS: C4 FE rool CPY FAC+I 

EAR4: DO 10 2358 ENE FD2 

EARS: Ad AY footy LDY ARG+E2 

EASE: 4 OF 2 ShO CrY FAC+2 

EASA: DO OF oe 1 ENE FD 

EAC: AS AG PS LDY ARG+3 

EASE: C4 Ao Poa CPY FAC+S3 

EAVO: DO O4 24 BNE FD2Z 

EAS: AL AP 2OOS LDY ARG+4 

EAG4: C4 Al 2366 CPY FAl+4 

EAGS:s O8 3oo7 FD2 PHP 

EAP Ys 2A 7368 ROL 

EAGER: FO OF iN re ROC FDS 

EAVA: ES 7370 INX 

EAPR: GFE SS pH ie STA RESULT+2, X 

EAPDs FO 32 Pol & REQ FDS 

EAR: Oo 24 i BPL, FD?/ gFinal exit when X=] 
EAAL: AP Oi 274 LDA #1 

. os 28 wore PDS PLP 

b:AA4: BO OF 2O76 BCS FDS 


EARS 3 
EAA s 
PAA s 
EGAC : 

AEs 
EAE) g 
EAR s 
EAR s 


E ARE s 
EAR? s 
EES ¢ 


EAREs 
EARDs: 
EAERF : 


EAC 1s 
EACS: 
EACH s 


EAC? s 
EAS s 
EACH s 


EACDs: 
ONCE: 
1 : 
EADS: 


EADS : 
EADS & 
EAD? 3 
FADE : 
EADS s 
EADAs 
EADE s 
FADD: 
EADE s 
EA Ls 
EAE Ss 


EAE Ss 
EAEE s 


ey 


So 


D4 


“ees” é é 
— 

*. 

a fe 


‘S87 
RB? 
SRB 


400) 
PAO d 
P44 
AO 
7404 
e4O4 
P4AOd 
>4O4 
»AOd 
74O4 
24O4 
24O2 
PAO? 
r4O2 


FD4 


FOS 


FDS 


ray 


DIVE 


RES OFAC 


SOSES Heres 0008 eteee setee 
Cheese Senne Genes Ceeer Sesee 


Page 7&4 
ARG+4 
ARGS 
ARCT+Z 
ARG+ 1 
PDE 

FY 

ap Be 


SE, ARG+4:FAC+4: ARG+4 
AF (a-4-4} 
FAT +4 
ARG+4 


SR. ARG+SsFAC+3 3 ARG+3 
ARG+3 
FAAS 
ARG+S 


SE. ARG+2;FAC+2; ARG+2 
AR (s+ 2 
FAC+2 
ARG+2 


OR. ARG+IFFAC+L: ARG+1 
ARG+ I 
FAT + 1 
ARG+ 1 


FD4 
#$40 
FDS 
& 


EXTRAFAC 


RESOFAC 

#D1Vby ZRO—-ERRMSG 
ERROR 

TRDE. RESULT: FAC+I 
TR, RESULT: FAC+1 
RESULT 

FAC+I 


TR. RESULT+12FAC+1 +2 
RESULT +1 
FAC+I +4 


TRDE,. RESULT+23FAC+3 
TR.RESULT+2;3FAC+3 
RESULT +2 


EAFO: 82 AQ 242 SrA FAC+S 


2402 | oe TR,RESULT+2+1;FAC+3+1 
EAP 2: AS S&S PAO LDA RESULT+2+1 
W4: GE Al 24O2 SPA FAM+3+1 


EARS: 40 2E ES +403 7 IMP SITGNIF 


2405 % Routine to get packed floating # at (A,Y) 
S406 Ko unpack it and move it to FAC: 


FAFS: SE BE 2408 MOVEM STA INDEX 
EFAFR: 84 EF e409 STY INDEX+i 
EAFD:s AO O4 T4hio LDY #4 

EAFF: Bi SE e414 LDA {INDEX),¥ 
EROL: @5 Al 412 STA FAC+4 © 
FROS:s 88 2413 DEY 

EROS: B1 SE e4i4 LDA (INDE A)» ¥ 
EROS: BE AO 74155 STG FAC+S 
EROS: 88 P4ald DEY 

EROS: Bi SE e417 LDA (INDEX), ¥ 
ERBOR: 85 SF T4188 STA FAC+2 
EROD:s 8h 241s DEY 

EFRBOE: Bi SE 242d LDA (INDEX), ¥ 
EEIO: 2 Az rae STA FACSGON gs Unpack 
ERI?s OF 8O 2422 ORA ##*O 
ERI4: 835 9E 242s STA FAC+i 
ERIS: 88 +A? DEY 

fo R17: BI SE ees LDA (INDEX). Y 
wis BS 9D P42 STA FAC 

EFRiFe 84 ac +427 STY EXTRAFAC g ¥=O 
ERID: 4&0 34a RTS 


ERIE: A2 98 "430 MOV2 LDX #TEMPS s:Pack FAC into TEMPF2 
ERBZO: 2C cr a HEX 20 sirick to branch 
ERZ1: AZ 93 e4ae  MOVIF LDX #TEMPF I gPack FAC inta TEMP] 
EBS S: AO OO 7433 MOYVML. LDY #O gHigh byte of dest adrs=O 
ERSSe FO Of PA 4 REQ MOVMF 
EES: AS OS 2435 SETFOR LDX FORFNT 
ERSS: A4 BS 24 B& LOY FORPNES1 
ERSR: 20 72 EB 3437 MOVMF JSF RNDE sPack FAC inta memory (€%,¥Y) 
EBZE: 86 SE 243g STX INDEX 
ERSO: 84 OF 2A ae STY INDEX+] 
EESes AO O4 Ago LDY #4 
ERS4: AS Al 444 LDA FAC+4 
EBSG: YI SE 24 4ie STA ‘¢INDEX), ¥ 
ERS: 8S 244s DEY 
EESS: AS AO Ag dg LDA FAAS 
ERESB: 91 SE 24 4h STA CINDEX), ¥ 
ERED: 88 PASS DEY 
EESE: AS FF Aa? LDA FAC+2 
ER4O: Fi SE 744Q STA ‘CINDEX), ¥ 
ER4ie2: 8S AG? DEY 

432 AS Az PASO LDA FACEGN 

4 24S RA #E7F 
B47: 25 YE a ac AND FAC+1 


ef 
AD 
“J 
3 


ee sees ee ee Face 7h sme 


JE PAS SrA (INDEX), Y 
4m DEY 
PD PA LDA FAC 
we 2456 STA (INDEX), Y 
AC eA? SPY EXTRAFAC 
48 RTS 
49 
AF P4Hh0O MOVE A LDA ARGSGEN iMove ARG ta FAC 
AY 461 MFA STA FACSGN 
om 2 Hho LOX oS: 
= AA 455 MFA LDA ARG-1, X 
- FC PH &4 SrA FAC—-1, x 
4iX DEX 
he 24 h& BENE MFAZ 
AC 24a? SPX EXTRAFAC 
458 RTS 
rh SS 
72 ER 3470 MOVAF JSR RNDE Round, then 
Ob 2471 MAF LDX #64 gmave FAC ta ARG 
a 2472 MARS LDA FAC-1.% 
= AA PA? STA ARG-1, X 
ee DEX 
idee d eee BNE MAF? 
AT PATE SPX EXTRAFAC 
2A? ?  RTNG RTS 
2478 


P4A?79 * General purpose routine to round FAC using 
"480 %& the most Significant bit of EXTRAFAC: 


PAST 
a FD "482 RNDE LDA FAC 
FE 2A BEQ RTNG 
At 7494 ASL EXTRAFAC rif EXTRAFAC is neg 
ad 24s RCC RTNG § then add one bit 
G6 ES °486 ROUND JSR PLUSEPS gy to mumber in FAC, 
rz 2Ae? ENE FTN? 
SF ES 2-439 JMF  FROUND sRound if exo affected 
24eg 
3 9D 749O SIGN Loe FAL (Check siqn af FAC and 
he PAS 4 BEQ FRTNIO e return -1,0,1 in A-reg 
= 7492 STGNI LDA FACSEN : accarding to result. 
7493 SIGNE FRO 
PP AGA LDA FFF 
Cie AOS BCS RTNTO 
‘4 4h OS LDA i 
24AO? RTNTO RTS 
2499 
2 ERB +499 SGN JSF STGN rConvert FAC tao -1,0,1 
; Fe SaOO FLOAT STA FAC+I gsFloat signed contents 
OO ae LDA #O :; Of Av-redq. 
oF rSO2 STA FAC+2 
RE SOS LOX #PRe 
Tr 7SO4 FLOW LDA FACHI 
FF SOS EQR FFF 
mod ROH. 
OO your Pie LDA #O 
Ai a ST& FAC+4 


ERAS s 
ERAS s 
ERAA: 


BACs 


RAF : 
ERR: 


ERBS:s 
ERAR4 
ERRS 3 
E RES : 
ERE s 
ERRR Ss 
ERBEC: 
E BRE s 
ERCOs 
EBCZ: 
EBC4s 
ERCS: 
ERC: 
EBCA: 
EBCCs 
EBCE: 
ERD: 
EBD: 
EBDS3:s 
RDS: 
ADT 
E RDS : 
ERDAS 
EBDC: 
EBDE : 
ERDF : 
ERE Ls 
EBE Ss 
ERES: 
ERE 7: 
ERED s 
ERE: 
EBED?: 
EREF 


ERP 2: 
EEF 4s 
EBF 6: 
ERE 7s 
ERF9: 
ERFE: 
ERFDs 
ERBFE: 

CC) s 
COZ: 


a7 =e 


ol 


Paio 
aes ae! 
>S1i2 
2SBiS 
2S1i4 
2S1S 
"S16 
»317 
75198 
rel? 
2820 


of Wed he 
oy, Eiaet Sey oy 


MP tad dls ix 


“em 
oP teak othe “eect 


Pate A 


ay, Ge oh ee 
PO” tnd MeN 


eed 
aw ard 
ee 
oe? 
Peed 


*e oooge 
bo Oi | 
“ne, fx “— “" 
of teak “ed hee 
oy. Soest? once® 
at” teed Yee! Sec? 


ew ie 
rn Pa 
Rare RS 
eho F 
Bara Sm 


woo? 


emo 


PEGI 


2542 


24S 
E44 
PEAS 
SEAS 
Sa? 
2348 
249 
bao a 
",, Ge OES i 


of” teed aad 


%, SP Ee em) 
oP ted teed 


"oy, Hoses Ecce oo” 
at Seok Yeo Mas! 


2554 
>555 
ater 
>557 
559 
2359 
7560 
2561 
2862 
2563 
G4 
2565 


wet Ged 


ARS 


x Routine ta 


FCOMP 
COMP 2 


*¥ On exit fram FCOMP, 


QIN 


STA 
STY 
LOY 
LDA 
INY 
TAX 
REQ 
LDA 
BOR 
RMI 
CF xX 
BNE 
LDA 
ORA 
CMP 
BNE 
INY 
LDA 
CMP 
BNE 
INY 
LDA 
CMP 
BNE 
INY 
LDA 
CMF 
LDA 
SRC 
REQ 
LDA 
RCC 
OF: 
MF 


LDA 
BEQ 
SEC 
SRC 
ee 
BP. 
TAX 
LDA 
STA 
JSR 


FAC 


EXTRAFAC 


FACSGON 
SGN IF 


FACE GN 


DEST 
a Re ae 
#0) 


(DEST), Y 


oD (NN 


(DEST),Y 


FACS GN 
SIGNI 
FAC 

al Oe | 


(DEST) ,Y 


HERO 
FAC + 1 
Pi2 


(DEST) ,Y 


FAC+2 
FCA 


(DEST), Y 


FAC+S 
FCA 


HBF 


EXTRAFAC 
(DEST),Y 


Al 4 4 
RTNI 1 
FACS iN 
rae 
Her PR 
SIGN2 


FAC 
ZFAC 


HAO 
FACE iN 
Qi 


FF 
FPGEN 
NEG? 


Seeee Snees enece veeee 


;Change Ssidqn ta + 


8 
i 


A=], 


s 
my 
i 
8 
bs 
" 
bs 
" 


“ae 


campare FAC with macked # at 


Exit if #6 = 


M,71l as (A,Y) i 


Canvert FAC ta 
its integer pa 
Aasaumes FAC < 
Result is left 
FAC+1 ta FAC+4 
($9E-GA2). 


C¥.,ADs 


i 


rts 
died I 


in 


~ FAC, 


ECOS: BA 2a 7 TXA 
ECOG: AZ FD eeoe OTT LOX #FAC 
ECOS: C9 F9 rao? CMP #BFS sMore than 7 bits to shift? 
ECOA: 10 O& om? RPL QT2 pRranch if not 
OC: 20 FO ES 37571 J&R SHIFT ;Da byte shift if soa 


ECOF: 84 A4 eae as 
ECil: 60 pe Be 


= ed 
RTS 


PRISE N g ¥=O 


RTNII 


roe 

ECi2: Ag rofva OQ12 TAY 

ECiS: AS AZ ame LDA FACSGN 
ECiS: 29 80 caw ard AND #$80 
ECi?’: 46 9E 278 LoSR FAC+] 
ECiI9: OS YE re ed ORA FAC+I 
ECIB: 85 FE 2oBO SrA FAC+I 
ECIDs 20 O7 ES 23981 JSR SHFTR 
EC2O: 84 A4 a a STY FRPGEN 


583 
84 


PSS 


RTS 


EC233 AGS 9D 
EC]: CF AO 
EC27: BO 20 haw 
40 Fae EB 
EC2C: 84 AC Ri hed 
EC2ZE: AS AZ PoP 


INT LDA 
CMF 
BCS 
JSR 
STY 
LDA 


FAC 
HAO .% : 
RTNG 2 sExit if not 
QINT 

EXTRAFAC 3 Yo) 

FACSGON 


ECBO: 84 Az pa et STY FACSGN 
ECB2: 49 80 ia op EOR #eaoO 
ECS4: 2 w7S ROL. 
ECSS: AGS AO ea LDA #BAO 
EC37: 83 9D pare be dee STA FAC 
ANOS: OS AI Fae Be LDA FAL+4 
sont 85 OD vit ad STA CHARAC 
ECSD: 4C 29 EB +598 JMF SGNIF 
baw ae 
EC40O: 8S FE 2600 ZFAC STA FAC+1 
EC42: 85 9F POO STA FAC+2 
EC44: 85 AQ 2hO2 STA FAC+S 
EC44: 85 Al 2hOS STA FAC+4 
EC4&8: Ag 2hO4 TRY 
EC49s 4&0 7605 RINSE RTS 
2hOS 
+SO7 * Evaluate floating point number at TXTPTR: 
26OE 
EC4As AO OO 7409 FIN LDY #0 
EC4C: Aa OF PG1O LDX FiO sJeroa TMPEXF to SERLEN 
3 74 99 7611 FIN2 STY TMPEXF,A ge ($99-BAS) 
ECBO: 


2612 


ECSis 10 FB 2618 BFL FING 
ECS3: YO OF 2O14 BCC WNXDIGIT 
ECSo: CY 2 26135 CMF 4° =" 
ECS7:s DO O4 thi BNE FINS 
ECS9: 864 AS 2&1? STX SERLEN sFlaqgs meg mum if - 
ECSEAs FO Of 2618 BEQ EVAL 
ECSD: C9 2 S619 FINS Chr 7" 
ECSF: DO OS Phe BNE CHEDPF 
ECOG: 20 BL OO 621 EVAL JSR CHRGET 
54: 90 3B 74622 NXDIGIT BCC INSRTDIG 
EC66: CY 2E 76235 CHEDF CMP #*,° 


ECSS: 
EC SoA: 
EC&C: 
ECGEs 

744 
EC73! 
EC7 Se 
Et 773 
EC79: 
EC/7B: 
EC7D: 
EC7Fs 
ECOL: 
ECS3: 


ECE: 
ECS7: 
ECEA s 
ECSC: 
ECSE: 
ECIO: 
EC92:s 
ECIS: 
ECSS: 
EC9S: 
ECIAS 
ECIC: 


FQ 
C9 
Do 
mt) 
90 
Co? 
et) 
CC? 
FO 
C9 
a 
C9 
FO 
DO 


&ds 
wh) 
OO 
a4 
10 
AD 


ar 
«> 


ES 
4c 
bb 


we 
ohes 


rai 


PA 


99 
oF 
rs 
OF 


wet 


PF 
ae 4 
oO? 
oP 


94 
F9 


= AS 


Oi 


DO 


OR 


O2 
99 


~e 
a ¢ 


Oo) 


EF 


EA 


<a 


EA 


OBO 
2Gal 
Re yw 
POSES 
Shad 
>690 
Pee 
2Oa7 
7658 
~OuT 
2hSO 
S61 
2OS2 
SOG 
2hh4 
SOS 
ead 
Oh? 
2Hh6o 
hh? 


Bk TSGN 
DPDIG 
GOGE X 
SONCHE 


SETDP 


Be HM HM 


AD IE XP 
Ak X 


eke Y. 


DPRIGHT 


& VDONE 


EVD 


INSRTDIG 


NDF 


in fact, 


LDA 
SEC 
SEC 
STA 
BED 
RRL. 
JSR 
INC 
BENE 
REQ 
JSR 
DEC 
BNE 
LDA 
RMT 
RTS 
JMF 


PHA 
Bit 
ort. 
INC 
Jak 
PLA 


GOGE X 
AML 
SE TSGN 
#7? 
SETSGN 
Hols 
DFDIG 
#° +? 
DPDIG 
SGENCHE 


EXPSGN 
CHRGET 
Se fEAP 
EXAPSGN 
AD IE XF 
#O 


EXFON 
Aye X 
DPFLG 
DPF ists 
EVAL 


errors. 
EX PON 
TRAP GAr 


EXPON 
EYVDONE 


DPR IGHT 


DIVO 
BX FON 
DPLEF? 
EVDONE 
MUL TO 
EXPON 


DPRIGHT 


SERLEN 
EYD 


NE GOP 


Dering 
NDF 

Trea 
MUL TO 


:Get exponent 
;Neqg exo? 


gFlag if sea 


pMay not be in token form 


goimilarly for + 


:Number completed 


frlaqg neq expo 
RGet mext exp digit 
Branch if number 


:Neqgate expanent 


ehrancn if firet "a" 


Appears that there should be a jump to errar here. 
miulbinie decimal 
im FRINT statements. 
give syntax 


points give strange results 
Variable agssiqnments correctly 


rAdjust the exponent and exit 


yNeqative’ 


sSave digit 

sWags there a decimal pant’? 
sReranch if mot 

gAcd just if sa 

:Dec pnt aver 

Add digit ta left af dp 


ECC: 
ECCD: 
ECCFs 


ECD2: 


ECDS: 
ECDS: 
ECD9: 
EDA 
EDD: 
ECDF s 
ECEI: 
ECES: 
ELE? 


ECES: 
E CEA S 
ECECs 
E CEE 
ECFOs 
ECFZ: 
ROR A s 
ECF 7: 
ECF: 
ECF: 
ECE Sa 
ECF: 
“NE Ds 
aw et 
DO s 
EDOZ: 
E DOS: 
E DOS: 
EDO? : 


Be Des 
E DOD: 
SOO s 
EDizt 
EDi4ds 
EDi7% 


EDIS: 
EOLEs 
EDID: 
ED ZO: 
EDZ2Z¢t 
ED24s 
EDS: 
ED2ZS : 
EDLAS 
EDRs 


AS 
ba) 
Bo 
Ai 
it 


rae) 


2 i} Pe 


oO 


~ EC 


EC 


be 


EE 


ad 


~ EB 


ED 


Poel 
76S 
2683 
2 hS4 
7685 
mtn ton 
POS? 
~688 
2hO9 
PhO 
POF] 
POF? 
POPS 
POP 
POPS 
POF& 
2O97 
2O9R 
roy 7 
2 7OO 
2 Fd 
2 FOR 
ef OS 
2 POY 
PES 
2 POS 
PLE 
2fOR 
2 fO9 
2FPAO 
ee a | 
ar de ats 
oi ke 
P14 
PIAS 
7730 
ee oF A 


2718 


#6008 cones C0nee Senne cence 


* Routine to 


ADDACC 


ETE XP 


MVDE 


STEX 


HPimi TN TH 


Bolom ONE 


BRILL TON 


INFRT 


_INPRT 


PRN TRAC 


PHA 
JSR 
Pie 
JSR 
LDA 
OR 
STA 
L.DX 
JMF 


LDS 
CMF 
BCC 
LDA 
RIT 
BMI 
JMR 
AL. 
ASL 
CLC 
ADC 
ASL. 
CLC 
LY 
ADC 
SEC 
a} 
oT A 
JMR 


Hi x 


Hi x 


HE x 


LDA 
Weg 
JSR 
LDA 
LOX 
STA 
ST X 
L_Dx 
SEC 
JSR 
JSk 


a" 0)? 
ADDACC 
EVAL 


add A-reqister ta 


MOVAF 


FLOAT 
ARGGN 
FACS GON 
SONCER 
FAC 
FADDT 


&XFON 
HAO 

MYDG& 
#1OO 

EXP SGN 
STE Xx 
QYERP LOW 


EXPFON 


HO 
CTXTPTR) , ¥ 


#7 Oe 
EX PFON 
DFDIG 


PRSERCIFED 
PEGE ORA YF D 
PE SEGRE ROO 


#INMiG 
#> INMSG 
PRSOTR 
CURL IN+ 1 
CURLIN 
FAC +] 
FAC+2 
EPO 


Fin 
POUT 


until dane 


fT s 


gCapy FAC ta ARG 


:7O Sigmal if FAC=oO 


g Too big 

iS @xo meq? 

gIf so will get © 
Pir Notts 
gtimes 10 


ayerflaw 


299,999, 999.9 


£999,999, 999 


21,000,000, 000 


erin: ™ 


gPrint A,X in decimal 


Print FF #oin FAC 
sFrint string at A,Y 


ED?E: 


oils 4C 3 PRSOTR JMF  STROUT 


afl Fast Sait 


EDS4: 


EDS: 
EDS8: 
EDS: 
EDSE: 
EDSD: 
EDSEs 
EN41: 
ED43: 
ED4S 3 
ED44: 
ED4es 
E DAA: 
EDA s 
E DAF 3 
EDSi1: 
OSS s 
EDSSE 
EDS73 
EDS? 
EDSE: 
E DSE 3 
PN) 3 
E DSA: 
EDGSs 
EDS9: 
EDSEs 
EDSDs 
E DSF a 
ED? 1: 
ED 74 3 
ED7&:s: 
ED78: 
ED7Es 
ED7D: 
ED7F s 
EDS2: 
EDS s 
EDS: 
EDGY: 
EDSC: 
EDSE s 
EDYOs 
EDYis 
EDSS:s 
EDSSs: 
EDS? s 
OS 
EDSER: 


Ai) 


C4 


OTe) 


Ee 


Eg 


alt 


ER 


ai 


A 


Ee? 
lo 


Seeee SEsed Eades ensee eneee 
S090 endee Sones seeee S400 


KX Convert FAC to a 
* Hey Lee 2ts 


POUT 


L_DY 


#1 


string at STACK and point 


* Entey from STR routine puts string at FF (Y=) 
¥ SO as to use an indirect address to point to it: 


FACS TRANG LDA 


SF SG 


NOT ZE 


ME 


STE 


CMP RMI 


CMPHM 


JMLO 


JDLO 


FOUN 


INTPART 


DEY 
RIT 
BRL 
INY 
aA 
STA 
Sry 
INY 
LDA 
LOX 
BNE 
J MMP 
LDA 
CF XxX 
REQ 
RCS 
LDA 
Loy 
JSR 
LDA 
STA 
LDA 
Lake 
JSR 
BEQ 
RRL 
LDA 
LDY 
Jor 
REO 
Br k. 
Jor 
DEC 
ENE 
JSR 
INC 
BNE 
JSR 
JSR 
L.DX 
LDA 
CLC 
ADC 
BMI 
CMP 
RCS 
ADC 
TAX 


°° 


FACS GN 


SF SG 


STACK-1,Y 
FACSGN 
STRNG? 


#7 O° 


STE 


& Number =O? 
fFinish up if sea 
: Number >=’? 


gokip af mob eo 


HETLL TON 
# OR TLL TON 


PMUL T 
HP? 


Gx 


1PPEAr 
#E TL mi ONE 
# oR TL mdi ONE 


FCOMP 


INTPART 


JDO 


- “oo “e 


999, 999, 999 


“22 ‘SR “RB 


#HMmi TNTH 
#>HMmi TNTH 


FCOMP 
JMITO 
FOUN 
MULL 


TMPE XF 


CMPHM 


sRound it 
rConvert narmal 


TMPE XP 


#iO 
DFLOC 
#14 
Fk. 
HBR 


: 


dec ont and 


Normabice between 
100, OOO, OOO aricd 


farm to int 


EDS: 
EDGVE : 
EDF : 
EDAIL: 
E DAS s 
EDAG: 
EDABR s 
DAA: 
E DAC s 
E DAE: 
E DAF : 
E DBZ: 
E DES : 
E DRS: 
BEDE? 3 
DRE s 
OEE s 
EDED: 
E DEF : 
EDC i: 
EDCS: 
EDC4: 
EDC?7: 
EDC: 
EDCE s 
Ee DCE: 
EDDO: 
EDD2: 
PADS: 
. JD7 3 
EDD: 
EDDC: 
EDDE s 
EDDF : 
EDE1: 
E DES: 
EDES: 
E DE? : 
EDES: 
E DEA: 
E DEC: 
EDEE:s 
EDFOs 
EDFi: 
EDF 2s 
EDF 3: 
EDF 4: 
EDF S: 
E DFE: 
EDF 9: 
EDFAs 
EDFC: 
EDFF s 

Oils 

OSs 


EOS: 


OC} 


OTe) 


at 


Ee 


EE 


Ot) 


2792 
IFS 
FP 94 
Re hae ie 
2796 
Re de i A 
3798 
2799 
ROL) 
SBOT 
BO? 
BOS 
SRO 
SBOE 
BOS 
SRO? 
2808 
SOS 
"BLO 
SOii 
2aie 
reiss 
214 
BIS 
rBisS 
-Oi? 
21a 
"B19 


% ~y; 7, 
TRAEO 
*s, Lane | 

Ps = a | 
“PID 
“ chee cheer 
*, - 
SRE 
% o, £3 4 

Pa Pp 
3B28 
7R2S 


7B27 
7828 
B29 
B30 


PBS1 


DPLOC 
DRL. 


PUTDP 


SVY 


MAE STR 


MSLUP 


Pak TTY? 
COUNTED 


MAR DIGIT 


Hie 
:Where doec . da? 
Hi 
EX PON 
TMPEXP 


PUT Dr 
MAK STR 
SPRNG2 
:: 


STACK-1, Y 


Sy 
+? c)? 


STACK-1,Y 

STRNGZ 

#0) gs 2c 
#EAO . 
FAC +4 


im on #F while 
building string. 


DECTEL +3, ¥ 
(+4 

PAC +3 
DECTBUt2s ¥ 
PAC +S 
BAe 
DECTBL +1, ¥ 
FAC+ 2 
FAC+1 
DECTBiLs ¥ 
FAC + 1 

gCount im x 

PART TY? 
MSL UF 
COUNTED 
MSLur 


MAK DIGIT 
RF 

#AO 

He Ot 4 


VARPNT 
STRNG2 


rSave ptr ta DECTRL 
Get ptr toa string 


#S7F 
STACK-1, 


BESO s 
EES.c8 
EES 
SEDs 
ESAs 
EESC: 
EESF s 
FES: 
FEOGS: 


EE S42 
EEG7s 


EES? : 
Ss 
EE SD: 


a ad 
AD 
8:3 


OR 


PF 


0) 


Oc 


> {) 1 


oi 


Ol 


0 


it | 


0} 


iF 


PS 


2849 
SEAS 
SRSO 
SRS 
SBS2 
ba ba 
SeS4 
SBSS 
2HSS 
ba i ad 
SBSa 
SBS? 
28Oo 
“8S 1 
B42 
"HGS 
7864 
exc taber) 
7864 
BS 7 
7843 
"BG? 
a7 O 
Se? 1 
2O7 a 
PEro 
28? 4 
+873 
O74 
2877 
87S 
“B79 
BAO 
SHS 1 
SBO2 
SRA 
2 Se4 
SBS 
"Bah 
SBS 7 
Baa 
BAS 
B9O 
791 
2892 
2EOS 
B94 
Red = be ee 
B96 


TBO? 
7898 
B99 
OO) 


2901 


SAVY 


NEEDEX? 


PUTEA 


WHAT Xx 


WN DUP 


MARKEND 


PNTSTE 


HALF 


x 32 


bat 


DECTERL 


Snes UOEEe SO2en ESEEe PRESS 


Miz x 


hey 


HE x 


Stee BOeEe Beebe onete coeee 


Page 85 
STrACK~-1, Y 
STRNGZ 
VARPNT 


;oave string ptr 
;Get DECTRL ptr 


HEE 
#EAO 


#TEND-DECTBL 

MSLUPF gloom till dane 
STRNGS 

STACK~-1, ¥ 


FoOuUppress trailing O's 


#  , * if ends in DP, 
MEE DEX? 

+ * «f- * 

EX PON 
MAREEND 
rises 
#0 


rEranch aif mo exp 


f X FON 


+ * un 2 
STACK+1, Y 
#° EP 
STACK, ¥ 


He Oe 


HAG 

WHAT X 

#° O° +10 
STACK +3, ¥ 


STACK+2,Y 
#0 
STACK+4, ¥ 
PNTSTE 
STACK—1, Y 
HO} 
STACK, Y 
#< STACK 

# > STACK 


2, ota oa oe oe os oho oM%e a, 


Oe ee ee ed ee ee ee ee 


"ee “ee “es “se “ee ee te 


write over 


it 


EE7O: 
EE7I1: 
Ee 74s 
EE vos 

7S 
ré79s 
FEC: 
EE7Ds: 
EEO s 
EES: 
EER s 
FESS: 
EES : 
FESS: 
EESC: 


PO 


Ol 


FF 


Ct) 


PE 


Of) 


FF 


&3 
&4 
EE 
eo 


70 


ARS 


Ox 


wt) 
BA 
OO 
28 


a La 


Sa 


ol 


Eo 


=~ EB 


ie 4 


erg 
= 


TEND 


SOR 


EPWRT 


Fal] 


Pil 


OOF RP SAO 
FFFORDCO 
OOOLTRSH0 


PrrPDSFO 


ee a a 88 


70, 9% oP 29% 0%, 9%, .99, 


ee ee ie bi es” le) 


FFFFFFFF 


3 


MOVAF 
HHALF 
# HALF 
MOVEM 


EXP 
ARG 
Pwd 
AtarAC 


HEMP S 
#O 
MOVME 
ARGSGN 
PW: 
INT 
#HTEMP 3 
HO 

F COMP 
Pi 


CHARAC 
MF ES 


LO 
#TEMPS 
+i 
als ed 
EXP 


RTNIS 
Fat 
RTNIS 


NEt. FACS GN 


FACSGN 
Hier 
FACSGN 


ee 


ee a hi ie a ei) 


a a ed 


a 


ee be ee es) 


gf OOOL 
2 1OO0 
3-100 

s 10 

a1 


sCoampute power 


gPut i/2 in FAC 


SARG*FAC -> FAC 


goet FAC=0O if ARG=0O 


rStoare at TEMPS 

yBranch aif argument is + 
Get INT part of exponent 
rise it an integer power’? 
allow neq arqument 


eMove arqumenmt ta FAC 


;Get LOG Carqument) 


Campute expan klLoOG Carqum) 
rRaeise to e-th power 


tWas exponent a - integer? 
SReturn: 1 not 
ris result oO’? 
Return if soa 


EEDA: 


SEDER: 


DE: 
EEEOs 
Ere 12 
EEE4: 
FEES: 
EEES : 
EEERs 
EEEEs 
EEF OSs 
EEF Ss 
EEPS: 
EEFS: 
EEF As 
EEFDs: 
EEFF: 
EPO? : 
EPO 
EFO7 s 


EF OD: 
EFOBs: 
EFOD: 
EFiO: 
EP IZ: 
EF 14s 
Ni és 
o AF? 
EFIB:s 
EFIE: 
EP ZOs 
EFZ23 
eee a 
Era? 3 
a eed 
EF ZC t 
EF2D: 
EF ZF t 
EF4 s 
EF 322 
EF 4 g 
EF SS: 
EF3S7t 
EFS: 
EF SEs: 
EF SDs: 
EFSF s 
EF acs 


ER 


E 


Sereeet 


Ks 


EA 


RTNIS 


LOGe 


EXPSER 


Ar 


X1 


RTS 
HE X 
DFE 
HE x 
HEX 
HEX 
Hi x 
HE xX 


HE: x 


° 


SLSBAASRS9 
? 


YI S458SESS 
YSiés7EBSik 
{72° EEE Soe 
7AIDR4I CLA 
PCSSSP SRO 
767 5F DE7CS 


BOSLT72181O 


i et 


EXTRAFAC 
# AO 

x1 

ROUND 
EXTRASYV 
MAF 

FAC 

HAS 

Xa 
QUTOPRNG 
INT 
CHARAC 


HS 1 
OOF 


#1 


#5; 
ARG, x 
FAC, X 
FAC, x 
ARG, X 


XO 
EXTRASY 
EXTRAFAC 
FSUBT 
NEGOPF 
HE XP SER 
# EXPOSE 


§LOG Ce) 
g index 


to base 2 
to # af coefss: 


s (log (2)*7)/8! 
§ (log (2)°6) /7! 
§ (lag (2)°S) /4! 
(lag (2)"4) /5! 
$4100 (2)"3) 74! 
SAA Ogee? er: 
Fangte?s 2! 
ae 

; @ec°FAC -> FAC 


phet up te campute as 2° (xLOGCe)) 


Copy ta ARG 
gWithin range? 
gBranch if mat 


sMake zera ar overflow 
:Get integer part in FAC 


:owap ARG and FAC 


Subtract of f integer part 


EFSO 
oe ae PS 
greyes | 
ERS? : 

SS 


EPR: 


EP Sts 
EFSE s 
EF GOs 
EF GS: 
EF G&S: 
EF SS: 
EF SEs 
EF SD: 
EFSF s 


EF at 
EF? 4 3 
EF 76H: 
EF / 9s 
EF7B: 
EF/D: 
EF 7F s 
EF EO: 
EFSis 
EFSS: 
EFOES: 
EFG?: 
PN\39 s 
a - ; By 
EFSE: 
Er IOs 
EFS! s 
EF9OS: 
EFOS: 
EF IS: 
EF9OS: 
EP OAS 
EFOD: 
EFSF s 
EF AL s 
EFAS s 
EFAS s 


EFAS: 
EFA s 
EFAA: 
EF AD: 


EF AE: 
EFRi: 
EFBa: 
EPR: 
EFRS: 

Bes 
EF ERE: 


fF 


ER 


Ee 


EF 
EF 


Sy 


fs 


te 


aif 


44 


Rl 


oS: 


2O9S 
Ve as ad 
+7 FS 
Ve dee 4 
LT Oooo 
e1OO) 
71002 


2 ee” ee” “eee 


P1008 
71006 
LOO? 
27 1OO08 
71009 
2LlOLO 
21Oul 
21O12 
2LOLSs 
elo 
SILOS 
21O1LS 
elo? 
~1O1e8 
P1O19 
71020 
21021 
PLO? 
a rae 
2 1LO24 
eLOLZ 
21LO2S 
21027 
21028 
21029 
PAOSO 
21031 
21LOS2 
21LOSS 
2lLOs4 
21O32 
2LORS 
21LOS?7 
21O38 
2S 1LOS9 
PIO4ao 


LO4l 


71042 
»1O043 
y1044 
71045 
21046 
21047 
21048 
»1049 
71 O50 


SERTES 


SERMATN 


ag 


See Seow 


SERLOOP 


NX TERM 


RTNI4 


RNDADT I 


RNDADI2 


RIND 


e8008 eneee Sener sone Sores 


JSk 
LDA 
LDY 
es ae 
ADC 
RCC 
INY 
STA 
STY 
JSR 
LDA 
Loy 
DEC 
ENE 
RTS 


HE x 


HE xX 


JSR 
TAX 
RMI 
LDA 
LY 
JOR 
THA 


SERTES 


40) 


SGNCPR 


ADE X 2 


SERPNT 
Sear: ei) 


MOV IF 


#TEMP 1 


gi 8 Me 


SE RMA IN 
#7 EMP i 


#O 
MULT 


SEREN T 
SERPNT +1 


MOVE 


(SERFNT), ¥ 
SERLEN 
SERPNT 


SS 


SERPNT + 1 
BERPNT 
SERPNT+ 1 


PMULT 


SERPNT 
SERPNT +1 


rw 


NX TERM 


SERPNT 
SERPNT +1 


FADD 


BTEMP 2 


#0) 


SERLEN 
SERL OOF 


PRSI44 7A 


S828R144 


SIGN 


RDI 


FRNDSEED 


HO 
MOVE M 


lise series an frac. part 


sAdd exponent af int. part 


Computes anxtbxuS+exn hts a. 
where SERPENT points ta 
CO@F «esl, Ds, a, 

# of coef = SERLEN+1 
BSCuMare x 
Do series 
et x 


BS 


RS "HMR NR MS ARS 


: eae 
att MN 24 


AGAaLN 


fi 


gMultiply by series and exit 


;Camputes atbatcu“S+. es 
:; where SERPNT points to 
s coef ...C,b,a. 


sfet up SERLEN from table start 
rand point SERPNT to last coef 
s(which comes first in table). 


:Move GSERPNT to next coef 


gAdd ane term 
;Get “h a&acgain 


gloom till dane 


Get sign of argument 
r;Remember it 

gif — use current FAC 
SMove current seed to FAC 


;Recall sign 


EF RC 8 
EF RE : 
EFCO: 
CCE: 

lesa 
EFC: 
EF Cos 
EFCC? 
EFCE: 
EF DOs 
EF Ds: 
EF D4 s 
EF DOG: 
EF DS s 
EF DAs 
EFDC s 
EFDE : 
EFEOs 
EFE Ss 
EFES: 
EFE? t 


EFEAs 
EFFEC: 
EFEEs 


EFF Is 
EPR 4 s 
EFF 6s: 
xs ke 
.. FAS 
EFFD: 
EOococ 
hel SRY. 
FOO: 
FOOT: 
POC y 
FOOCs 
FOOE s 
POIiLs 
FOS: 
POA: 
POLS: 
FOS: 
FOIR: 


EOD: 
FOF s 
FO?1: 


FO2S: 
FOZ&s: 
POS s 
POA s 
EFOeSD: 

4m 


POO: 


eo 


le 


ed 


Eo 


EE 


as 


WF J 


= 


Es 


>1O054 
>1052 
»1053 
>1084 
71055 


LORS 


21On? 


21058 
yLOS 
21060 


e1O64 
21062 
21063 
21064 
71065 
21044 
21087 
21068 
21089 
s1070 
s1O74 
s1072 
1073 


elo? 4 


21LO7S 
21076 
21077 § 
21078 
ease 
~LORO 
21O8d 
7LO8? 
21LO8s 


~1OR4 
2108S 
71086 
21lOR? 
271O8e8 
27 1LOR9 
21090 
21091 
PAV Se 
21LO9S3 
21094 
2LO9S 
21O%S 
21096 
21096 
21096 
7109S 
21LO9? 


21O9S & 


71097 
21166 
21iol 
21102 
2L1lOSs 


RDI 


RD 


COS 


REQ 
LDA 
LDY 
JSR 
LDA 
LOY 
Jak 
LOX 
LDA 
SrA 
ox 
LDA 
ara 
LDA 
TA 
LDA 
STA 
JSR 
1.DX 
LDY 
JMPF 


LDF 
LOY 
JSR 


JSR 
LDA 
LOY 
LOX 
JSR 
JoR 
JSR 
LDA 
STA 
J5R 
LDA 
LDY 
JSR 
LDA 
PHA 
BFL. 
JSk 
LDA 
RMI 


LDA 
OR 
STA 
JSR 
LDA 
ee ef 
JSR 
PLA 
RPL 
JSF 


Peace 9 sm 


RTNI4 
#RNDADITI 
#°RADSDI 1 
MULT 
#RANDADIS 
#°RANDADIZ 
PADD 

AC +4 
Feld 

F fy (7 +4 
A+ 

#0) 

PAC SSN 
FAS (S 
EXTRAFAC 
HERO 

FAC 
SIGNIF 
#RNDSEED 
#C) 

MOVME 


#P Thal 
#oPIihal 
FADD 


MOVAF 

HR T dou 
HF Telos 
ARGSGN 
DIV 
MOVAF 
INT 

#O) 
SGONCER 
FSURT 
HOUAR TER 
# QUARTER 
FSi 

BAC Sih 


SId 
FADDH 
FACS GN 
Si2 


NEG. SIGNFLG 


SIGNFLG 
BER 
SIGNFLG 


NEGOF 
HOUARTER 
# QUARTER 
FADD 


SIs 
ME GOFF 


eeeee seece 
weees seses 


Sad 
eneee 


fExXit now if RND(O) 
gMix Gt up 


:More mixing 


still more 


sMove FAC to rnd seed 


rCos(x)d=gindx + pi/2) 


gCopy FAC ta ARG 


sDivide by 2pi 
rCaoy ta ARG 

lake integer part 
sDoes nathing 


ubteact ta get moadt2oid 


32 RS 
if} 


;Convert arqument ta 
s range © ta 1/4 as 
s multiples of 2pi 


let quad 


FOSS s 
Poss 
PO? s 


of 

ay Ao 
OSD s 
FOSF s 
FOoaid s 
eo ee dy g 
FOGS : 
OA s 
POE s 
FO4D : 
POE s 
FOS. 8 
POS s 
FOS6G: 
FOSS 3 
FOSE: 
FORD s 
FOS 3 


FOgde 2 s 
POAT s 


FOSS: 
FOSS s 
POSE: 
FOGE s 
roN7O? 
: feed 
FO7S: 
FO7&: 
FO79: 
Ov ER: 
FOE s 
OEIC) g 
POE g 
FOSS: 
FORE 
FORA & 
FOSD s 
FOF s 
FOS? : 
ood y 
FO? : 
FOOD: 
FO9C: 


FOGE : 
FORO s 
FOesds 
FOS: 
FOR 3 
FOAS: 

FA s 
PORE s 


a 


ao 


er 


EF 


EA 


ae) 


Ee 


21Lid4 
eL1oOs 
2LLOS 
21107 
21108 
21L1a9 


’ 


2LLio 


Pe Ae 
2Lli2 
ellis 
2LlLli4 
211is 
21116 
PAL? 
71118 
eLILe 


PLL2O 


ae ee ee | 


be oe ata 


2L1I23 


2124 
21125 
-1126 
elise? 
e-11i2e 
21129 
2ALSO 


PL isd 


ae ae SK 


~14 33 
* ad oJ *ene® ioe 


LLs4 


21135 


2LLS6 


2Lis? 


2Li3e 


2Llag 


PLO 
2LLl4i 


21142 


2Lil43 
21144 
21Li4s 
21L14é 
21lil4? 
1148 
2LLl4ag 


SIS 


TAN 


TAN 


Fihal f 


PT cdoub 


QUARTER 
SINSER 


ATN 


ATNI 


S00ee G00ee cases Sees aeons 


LDA 
LDY 
MF 


JiR 
LDA 
STA 
JSR 
1.Dx 
LDY 
JSF 
LDA 
iDY 
JSF 
LDA 
STA 
LDA 
JSR 
LDA 
LDY 
J MP 


PHA 


JMF 


HEE x 


HE xX 


#HOINSER 
# oS INSER 
ODDSER 


MOVIF 
#O) 
SIGNFLG& 
SIN 
#TEMPS 
#O) 

RD 
HEMP i 
#O 
MOVE M 
#O 

FACS iN 
SIGNFLG 
TAN2 
HEMP S 
#O 

FDIV 


of ae 


BIi49OFDAAL 


B3490FDAA2 


, 28, 2°, on, oe 7, _%, 


ie hi i i ii ie, ie 


re 


R4ES1 ALDI 
BS2807F BER 
B7OEIUSHAIO 1 
B72 535DFE1 
RS6ASADE72LZE 
B2490F DAAS 
ASD SCICaRD4 
CaDAC4acCeca 
FACS iN 
ATNI 

NEGOPF 


FAC 


HHS 1 
ATN2 


erene se0ee wanes 


Do standard sin series 


shave FAC an TEMP 


sStore sin at TEMPS 


sRetrieve FAC 
fo oanmd compute cos 


;Retieve sin 


: and divide 


to # of coefs: 
ae & eo a oe 

ie Fa 

cde a i a 

ee eh 


. % 2 %. / a2 '. FY 
. "nee . ~ee® . 


Does mot appear used 
A modified Gregory series 


is used here. (Greeqary 
; Ccanverqgqes too silawly) 


et 


:Normalize between Oo & | 


FOAD s 
FORE s 
FOR : 
FOR : 

RG: 
FORG s 
FORE s 
FORC : 
PORE s 
POCO: 
FOC2: 
POs s 
FOC 7s 
FOES : 
POCA: 
FOCD s 


FP OCEs 
FOCF : 
FOD2: 
POD 4 s 
FOOD? s 
FODS: 
POD 3 
FODE s 
FOE1: 
POE Ss 
FOE Gs 
PORE s 
PNEB 
» WED: 
POR OC 3 
POP et § 
FORTS s 
FOF 7: 
FOF As 
FOFC: 
FOFF : 
Fiois 
FLOds 
F106: 
F1iO9: 


FioOk: 
FiOD: 
F1IOFs 


Fiiis 
Fii4s 


FPiiés | 


Fila: 
LAs 
FiiCs 


EA 


Oo) 


2 “ey ae 


ORES euete canes sense sence 
S0Pee Seeee Cnsee Cnner cere 


Fage Fi 


ensee enece 


;Compensate for normalization 


to # of coefss 


sAddress of na importance 
sReturn carrey set if not + 


# 


Lise LDA FONE 

1iSi LDY #>°0ONE 

Linge wom FOTY 

1153 ATN2 LDA HATNSER 

1124 LDY #>°A8TNSER 

tivo JSR OQDDSER 

1136 Le 

1137 CMP #8S1 

 @ be = RCC ATNS 

bioey LDA #FIhal F 

1160 LDY #2FIhal Ff 

1141 Jor - FSUB 

11642 ATNS a 

1143 RRL RTNIS 

1164 JMF NEGOF 

11605 RINIS RTS 

1166 

1147 ATNSER Ure if : Index 
1148 HEX 7SESESRDDS 

1169 HEX Y9LEF4A6FS 

1370 HEX  7RESFCROTO 

1.7% HEX YCOCFS7CA 

LASaZ HEA ZOCVESSCEC I 

4173 HEX YDi464704C 

1174 HEX  YDRZVEASI 7A 

i703 HEX YDS2308R7E 

1176 HEX FESL4499 34 

Liv?7 HEX 7E4SCCC91IC7 

1178 HEX YFAARAARALS 

1179 HEX 8iloooooooo 

Lise 

1181 %* CHRGET routine (Cand RND seed) 
1182 * to be placed at $H1i an zero page. 
i1es 

1184 ZPSTUFF =>> %QINCR. TXTPTR 

1184 INC TXTFTR 

1184 BNE NI 

1184 INC TXTFPTR+1 

1184 NI <<< 

1165 LDA REAGO 

11286 CMP F's" 

118? BCS RINGS s2-flaqg set if 
1188 CMF #* ° ;Skip spaces 
1189 BEQ ZFPSTUFF 

1 oe a 8 SEC 


es # 
2 


or eal 


Fiipds 
FiiFes 
Fizos 


El22: 


Fi2@Ss 


Fizés 


Fi28: 
PiSA: 
Fi2C: 
FiZ2E: 


Fiz: 
Pais 
P1333 
Fi SS: 
Pi37} 
FiS9: 
rise: 
rISE: 
FiL4cs 
Fig? s 
Fid4s 
Fi4sé: 
Fi4gcs 
Fidga: 
rFLi4c: 
FI4e: 
PASO 
+ wee’ 
Piss: 
ris 7t 
Finatve 
eel: F 
rT SC 
FISE: 
FiSrs: 
FIS1: 
Fié3? 
Fiés4: 
FiGé: 
Fié&s 
F1ISB: 
FiéDs 
F170: 
Fi7S: 
Fi7S: 
Fis 7} 
Fi79: 
Fives 
Fi7D: 
FivFs 
Figi: 


FiOS: - 


BSs 


Fis7s: 


C7? 


ae 


DA 


4 
4 


2Lil?i 
71192 
~1193 
71194 
711935 


e119 
21197 
*1198 
P1199 
TPO 
yABOL 
s1ZO2 
21BOS 
y1BO4 
21205 
»12BO6 


21207 


SS ) 


21208 
21209 
SL21o 
ge a Se | 
P dees 
oe Or 
21214 
be ae 
21216 
fiaee 
21218 
ee Od te 4 
21220 


71221 


can eae Tease | 


od tte tl 


5 BP ar A 


hee han Sod 


»A224 
y1Z25 


>1226 


s122 


2122 
2122 


*. er, eo, 
es . a ef } 


“see” “ee 


v1 2314 


i a ge 
efrve “cre? oftee 


. mye 
ume Rae ew: Yes | 
21234 
PAZSAS 


. “we 
123 


7123 


21238 


Pha? 


>LP4o 


vAB4A 
»1B42 
e1 B43 
s1L B44 
21245 


21l2Z4é6 


RTNTS 


COLDST 


MV ZF 


EP NDMEMH T 


Seete Sener Cesar cones ee0e8 
SOCee CORES CONES conse Sesee 


bE X 


LX 
ST X 
LDX 
TRS 


LDA 
LDY 
OTA 
sry 
OTA 
STY 
JSF 
LDA 
STA 
STA 
STA 


#P O° sihis code clears carry if 
: Mmumeric, sets it if not, 
#HELOO-"O* 3 and leaves A-req as found 


SO4FC7S258 sRandam number seed 


HEE | 

CURL T M+ d ginit direct mode 

HBR Et , and stack pointer. 
sUpper 4 bytes of stack used for 
§ link and line # in line input. 

#COL DST 

# > COL DST 

GOWARM+ 1 sWhy? These changed later! 

GOWARM +2 

GOSTROUT + 1 

GOSTROUT+2 

NORMAL. ginit normal text 

HE 4 gpet up jump locations 

COWARM 

GOSTROUT 

UMP ADRS 

Lk SUSR adres inited 

#IOQERR 5 to illegal quantity 

# > TOER PF : error routine. 

Wont. 

USR+2 

HEL yShoauld be #i1D° 


ZPSTUFF~1, X 
CHRGET—1, X 


SrPEEUZ sinit SPEED to 255 “‘“SPEEDZ = 1) 
MY ZF 
TROCFLG sSet MOTRACE 
PRS 

LASTR I+) 

Put © at #1IFE, SF now $FA 

& :This seems to have 

DSCLEN ; NG purpose here. 

RDO 

# i rSet up fake 

LIN * Link of $101 

IN-4 

HBSS sinmit index ta temp 

TEMPR?T s string descriptors 

OD 
#3 
L_INAUM 

LINANUM+ 1 

#0) 

L. TNNUIM+ 4 Test first byte of each page 


CLINNUM) , ¥ 
BRE - 
C(LLIINNUM).Y 3 


until ROM ar empty location 
is found. 


Fi8S9: Di So 21247 CMF  CLINNUM), ¥ 

Fie: DO O8 1243 ENE MEMPFOUND 

FiSD: 49 FF 21249 FOR #&FF sPut back as found 

FISF: 7i S50 Bae Farad @ SPA (LINNUM), ¥ 

Vis Di So Pkaaw CMF CLINNUM),.Y sTest again to make sure 

Figs: FO EC tilaege REG FNDMEMHT 

Pi?S: Aq BO e1l2S3 MEMFOUND LDY LINNUM 

Fi9S7: AS Si 2iZa4 LOS  LOINANUM+ 1 

PES? 27. FQ PLane AND #BFO iMake sure it is a multiple 
Fi?Rs 84 73 21256 241Y MEMS LZ 5 Of 4F in case test faulty. 
Fi9D:s 85 74 Pigosr STA MEMSTZ+1 

FiSF: 84 SF ALeue StY FRETOP 

FiAi: 83 70 ~1ZS9 STA FRETOF+1 

FiASs AB OO ~L260 LOX FO rset progeam pointer 
FLAS: AO Of >1261 LDY #2 : to. $800. 

FiA?: 84 4&7 1262 SPTX TXTTAR 

FiAS: 84 48 2126S STY TXTTAR+1 

FiAR: AO OO 1 Zé4 LDY #0 

FiAD: 84 DS e141 200 SIrY LGCK ginmit lock byte and 
FIiAF: 98 271266 TYA 

FIBO: 91 67 >1267 SrA CTXTTAB),Y § program beginning byte. 
| 21268 ee INCOR. TXTTARB 

FIiB2: ES &7 21268 INC TXTTAR 

Fik4: DO O23 271263 BENE NI 

FiB6: ES 68 21268 INC TXTTAR+I 

1268 NI .% 

Fibs AE &? Sige? LDA TXTTAER 

FibAs A4 6c Rae We 8 LDY TXTTAB+1 

eign: 20 £S BS 2is7i JSR REASON 

o-BF: 20 48 DS 31272 JSR SCRTCH 

ge eee 


Si2Z74 * Now frustrate machine language programmers by 
PIi275 * wasting the prime real estate at O-S: 


1276 
FiCc2s AY 3A Le a ed LDA #STROUT 
Fil4: AO DE PLase LDY #25 TROUT 
FiCéS: 85 04 Shar STA GOSTROUT+1] sAfterthought? 
FICh: 84 OS PL 2ZRO STY GOSTROUT+2 
FiCAas AY SBC riZad LDA FRESTART 
FICC: AO D4 FLIi2Zee LDY #SRESTART 
FICE: 85 O1 PLi2Zes STA GOWARM+ 1 
Fido: R4 O2 21 2Za4 STY GOWARM+2 
FiDd2: 6C O1 00 +1285 JMP  (GOWARM+1> 

PL RZRS 

1S PUT AFSOFT IV 


KKKK RRR KKK KR KKK KKK RK KKK KKK 


ai 
at ¥ * 
ao % Aooplesaft - Fart IV x 
24 x * 
be Kk Copywrite Apole Camputer, 
re) * Inc. and Microsoft, Ine.; & 
Pe i ¥ not for publication oar Bf 
78 K distributian. x 
Pa ¥ x 
= 21O KXEKKKKKKKEKKK ERK KKK K KK KEKE 
—_ poe: * K 
ba es ¥ Graphics, etc. ik 


$F1DS - $F /7FF 


Saree 

A 
3 2 FS HR 
we uM HM HM 


KKKKKRER KR RR KKK KKK KKK KKK REE 


FIDS: 20 67 DD +718 CALL JSR  FRMNUM 


rMote that CALL does not set up 
PLDS: ZO SZ EV +19 JSR GETADR 4 registers as im INTEGER BASIC 
FIDB: 46C SO 00 220 QMF CLOT NANLIM) £On @ CALL s 
2 : Y has low byte CALL adres 
Pie ; #& Ras high byte CALL adrs 
Peo : X has $9D 


PiDE? 20 FSB EG 22S TNNU JSR GETRYT 5 INF 
Fifi: 8A as TRA 
FIEZ: 40 8B FE >2 JUMP INFPORT 


PiES+ 20 FE ES 229 PRIMUS JSR GETEYT a PRE 
FIES: 8A 2 TXA 
FIE9: 40 95 FE 331 JMP  OUTFORT 


FOO %¥ Lares subroutines: 
BR *¥ Subroutine to get *,* coordinates: 


rFIEC: 2O FSB ES 237 PLOTFNS JSR GETRYT sGet first coordinate 
FIEF: EO 30 oes {PX #48 gyMake sure it is < 49 
FiFis BO 13 bp 4 BROS GOERR 

FIiFS: 86 FO 240 STX FIRST 

FIFS: AI 2C 4h 4d LDA wee 

PNME 7? 20 CO DE +42 JSR SYNCHR :oyntan check 

.aPAs 20 FR ES +43 JSF GETEYT Get 2nd coor 

FIFD: EO SO Ad CPX #48 yMust be <48 

FIFP: BO OS es BCS GOERK 
F201: 86 2C Ad STX H2 
P2008 Ge 2 2A? STX V2 
P2091 60 24Ae RTS 


Bet up both He 
amc Yi 


8 
a 
st 
bd 


F205: 40 99 EL 250 GOERR JM ITOERR 


F209: 29 EC Fl 352 LINCOOR JSR FPLOTFNS :Get &,B coor 
F20C: E4 FO eae CPX FIRST gig BCA? 

PLOE: BO O08 24 BCS AT? Branch if mot 

F210: AS FO Pad LDA FIRST g:interchange them if sa 
reia2et 8S 2C 26 STA H2 

F214: 85 2 2o7 STA V2 

F2lé: 86 FO yoo STX FIRST 

F218: AI CS POT AT’? LDA Hat 

F2iA: 20 CO DE +60 JSR SYNCHR royntax check 

F21D: 20 FSB ES 261 JSR GETEYT 

Pact EO SO ern i Cex #49 sCheck < 48 

PFaz2t BO E2 +63 BCS GOERR 

Reeds 40 2 S4 RTS 


rFaeot 2c €C Fi 2766 ee wh JSF FPLOTFNS 

F228: BA Oo? TXA 

— BS: Ad FO 748 LOY FIRST 

228: CO 28 769 CRY #40 gX coordinate must be <40 


eae ee 


F got 
F259: 
ee 8 
F258: 
SET) 


» rs 


F262 3 
263% 
F2OoS: 
F2SSs 
P2693 
Pe SAS 
F26C: 


F2SD: 
PLE s 
PSF s 
P27: 


mye ey 
Rese: 


P27 Sk 
er dowd 
aff 
ares 
F27EB: 
P27)? 
P27? 


ESRO: 
MAR: 
Pa s 


FR 


PR 


EG 


FR 


Eo 


HLOTN 


YLIWN 


COLOR 


Sreed 


TRACE 


NOTRACE 


NORMAL. 


INVERSE 


NEM 
SI 


FLASH 


SPOS THORP CEOs SeORe FOREe 
° 


graphics etuffs 


JER 
DEX 
TXA 
CMP 
RCS 
WME 


JSF 
TXA 
& OR 
TAX 
INX 
ST X 
RTS 


SEC 
PE x 
CLC 
ROR 
RTS 


LDA 
ANE 
LDA 
LOX 
STA 
ST x 
RTS 


LDA 
LOX 
BNE 


GOERR 


MONE LOT 


LT NCOOR 


a 
HAO 
GOERF 
FIRST 
HL TNE 


LINCOOR 


HAO 

GOERR 
FIRST 
VINE 


BE TRYT 


Sk TCO 


SELBY? 


#24 
GOERR 
TARY 


GETRYT 


HEP 


SPEEDZ 


70 


TROPLG 


HSER 
NEM 
i a 
#O 


INVFLG 
QRMASE. 


#7 F 
#40) 
SI 


POSSe OFF0> Senne OFnee aenee 


sX coor must be <40 


;Goa te monitor routine 


gX coor must be <40 


$60 to monitor routine 


sRanqe ak? 


rUise manitor routine 


s#100-SPEED -> SPEEDZ 


:Pake BCC toa skip 


F2ké s 
F289: 
o* 
BCs 
F2SE 3 
P2903 


P2928 


a Ph 
F296: 


Pe PSs 
P2?hs 

a PDS 
PAgr : 
FeAl: 
FRAG 


meet 


F2AS: 
FA? s 


FeAl s 
PAE & 
FSROs 
PEt § 


PSR s 
~~ 

» 2B: 
PR 3 
Pe RAS 
F2RC s 


FEE s 


AS 


RY 


D4 


DD 


2 E? 


; DS 


DE 


7148 


»149 


210 
Piss 


~15S2 


2153 
2153 
>153 
>153 
2153 


eit 


HIMEM 


MM 


ok THI 


LOMEM 


ONERE 


CERF CRORE Seeee SenEF there 


Page 


S8008 G0Tee enEee S4008 Genes 


PR MMM 
GETADR 
CMPR. LINANUOM: &TREND 
LINNUM 

S TREND 

L INNUM+ 1 

STPREND+ 4 


rGet epecified HIMEM 


SETHI 
MEMERR 


sAbove variable table? 
ferror if net 


LT NANUIM 
MEMSTZ 
PRE TOF 
LINANUM+ 1 
MEMSIZ+1 
PRE TOR+ 1 


FRMNGM 

GE TADR 

CMPR. LINNUM: MEMSTZ 
LINNMUM 

MEMSIZ 

LI NNUIM+ 2 

MEMSIZ+1 


JMM 

CMPR. LOINANUM: VAR TAR 
LINNUM 

VAR TAR 

LI NANUIM+ 1 

VAR TAR I 


MM 

TRDB, LINNUMs VARTAR 
TR. LINNOMs VAR TAR 
LINNUM 

VARTAR 


TR.LINNUM+ 1s VARTAR+ 1 
LINNUM+ 1 
VARTAE+ I 


CLEARC SLOMEM clears variables 
#aootea 

SYNCH 

TRDE. TXTPTR: TXTPSV 

TR. TXTPTR: TXTPSV 

TXTFPTR 

TXTPSYV 


TRatlATe IRth TAI Pov es 
TALE THs 


STA TXTFSV+1 


SEC 
ROR ERRFLG 

eee TRDE. CURLIN: CURLSY 
TR, CURLIN: CURL SV 
CURL TN 

CURL ESV 


LDA 
SrA 
TR. CURLING Ts CURL SV+1 


CURL IN+ 1 
CURLSV+ 1 


LDA 
STA 


JSR 
J MF 


FOER: 20 AGS D9 >IS7 
FOES: 40 98 D9 2158 


REMN 
ADDON 


:laonore rest of line 


K¥ Routine to handle errors if ONERR GOTO actives 


HANDLERE STX 
LOX 
ST xX 


ERRNUM 
REMSTE. 
ERROSTE 


;Get stack ptr saved at NEWSTT 
sRemember at 

(Should alsa have dane TKS 
heres: gee ONERR correction 
LS? ; in Applesaft manual.) 


P2ED: 86 DF 


ss 
fi 
s 
# 


F2EF: 


FPS 
FF; 


Ra ues 


“Or 73 


FOES: 


Peres: 


2k Ds 


F2FF s 
FBOd 


TRDRE,. CURLIN: ERRL IN 
TR. CURLIN: ERRL IN 
CURLIN 

RRL TN 


TR, CURLING Ts ERRL ING 
CURLING 1 
EARL INST 


TRDB. OLDTEXT;ERRPOS 
TR. OLDTEXT: ERRFOS 
OLDTEXT 

ERRFOS 


TR.~AOQLDTEXT+1 ; ERRFOS+1 
ULOUTEAT HI 
ERRFOS+1 


TRDE. TXTPSVs TXTPTR 
TR. TATPSV, TXATRITR 
TXTPSYV 

be og Go 


TR. TATPSV+1; TATPTR+1 


TATPSV+1 
TXTPTR+I 


TRDE. CURLSVs CURLIN 


21? I] eee TR. CURLSYV: CURLIN 
fy 2A 71 LDA CURLSY 
73 PAZ SrA CURLIN 


he we eoo TR. CURLSV4+1: CURLINGI 
ad he age | LDA CURLSV+] 
?& ah Be ge | STA CURLINGI 


7 OO L172 ISR  CHRGOT 
E D9 D172 ISR GoTo sGoto specified ONERR line 
2 DF Yi74 IME NEWSTT 


21i?7& RESUME vos TRDEZERRLIN: CURLIN 
217d eo?  TR.~AERRLIN: CURLIN 
DA 2A? & LDA ERRLIN 
va 2176 STA CURLIN 


PATS ooo? TRAERRLING Ts CURLING 
DE PLlé LDA ERRLINGI 
?& 2176 STA CURLING1 


ae af >> = ©6TRDB.ERRPOS: TXTPTR 
a a J >>> 6 TR ERRPOS: TATPIR 


= DC ei? LDA ERRFOS 


2 ES i a oY STA TXTPTR 


oe ae Be v>> 6©6CTR ERRPOS+13 TATPTRS1I 
DD wats LDA ERRFOS+1 
= RS eit? STA TXTFPTR+1 


i bn eg a LDX ERRSTE sRetrieve stack ptr as it was 
Pe a TAS s when error was encountered 
; Va DS 21LBe JMP NEWS TT 


> C9 DE F182 JSYN JMP SYNERR 


ae 71B4 DEL RCS JSYN sError if # mat specified 
7183 o> JRX.FPRGENDs VARTAR 

AF ZIBS LDX FRGEND 

59 21ISs STX VARTAR 

BO LES {DX PFPRGEND+2 

S48 a bn STX VARTAR+I 


OO DA +184 JSR LINGET Get beginning of range 
iA DS +18? JSR FNDLIN Find this line ar next 
718e 37> JTRDE.LOWTRs DEST 
218e >>> TR,.LOWTRs DEST 
SE 7189 LDS LOWTR 
m O&O 18a STA DEST 


TR, LOWTR+1;s DEST+1 


SC 7188 LDA LOWTR+ 1 
7 oh 2iISe STA DEST+1 


718e a 4 
FoB4os AS 20 Be he LDA #*,* 
PI4R: 20 CO DE +190 JSF SYNCHR sCheck syntax 
ESSE: 20 OC DA 2191 JSR LINGET :Get end range 
rie § (Does nothing if end range 
a0 | not specified.) 
21iS4 oo [NCR.ALINNUM sFoint 1 past it 
PFS3i: ES SO 2194 TNO  LINANUM 
FSooe DO O2 21 S4 BNE NT 
PSoor EG 31 21iS4 ING LINNUM+1 
2194 NI oe 
P3372 20 108 D& +195 JSR FNDLIN gFand next line toa it 
7A IS 22> CMPR,.LOWTR:s DEST 
PosoAs AS GE 7196 LDA LOW TR 
Poult CS 60 2195S CMr DEST 
FSSEr AS 9C 2196 LDA LOWTR+41 
P3601 ES 61 21965 SBC DEST+1 
296 <e4 
P3622 BO OO] Ws SF BGE MOVDWN Do mave unless 
PSo4: 6&0 2198 RTS mnathing ta delete 
Poo AO OO 2199 MOYVDAN LDY #O 
F367: Bi 9B 2200 MOVIT LDA ¢LOWTR)D,¥ 
P3493 Fi 60 rae) STA (DEST), Y 
eee wee INCOR. LOWTR 
: &6 9B eee INC LOWTR 
: DO O2 ee BENE NI 
2: £6 3C Pd 8 INC LOWTR+1 
Wau. —fi 4 
*2035 2ee JINCR.DEST 
PY oN7 12 ES 60 22S INC DEST 
»wror DO O02 2720 BNE NT 
FS7ot EG 6&1 22OS ING DEST+1 
2203 Ni aoe 
eed > 06 6OOMPR,. VARTARs LOWTR 
F377: AS 69 2 2O4 LDA VARTAR 
P3793 (Oo 9B 224 CMF LOWTE 
PR7E: AS 6A etd LDA VARTAR+] 
PovsDs Eo FC. 2 eos SEC LOWTR+1 
204 C4 
rF37Fs BO ES 2 eos BGE MOVIT 
FBBis AS 41 20S 1. DX DEST+1 
FSS: A4 60 ee? LDY DEST 
FSSS: DO of 2208 BNE NDX 
PSe7s CA ed Bf DEX 
FSSBe: 88 e210 NDX DEY 
Peo: 84 6A ae | STX VARTAR+1 
PBekh:s 84 4° Pore STY VARTAR 
F28D: 40 F2 D4 eis JMFP LINESET sReget links after a delete 


‘a 


"S32 


FSO: AD S46 CO 2-215 GR LDA LORES 
FSGSe AD SS CO 2216 LDA MIXSET 
F396: 4C 40 FR 3217 JMP SETGR 


279, AD 24 CO WBF TEXT LDA LOWSCR 


RUMP @F RSS would have 
ES9C: 40 39 FR F220 IMP SETTXT » 


one both these. 


ohees 
SEE * Tape array store and recall routines: 


iis te seer ee soe Fy 1OQ <essmsex 


teeo & (No corresponding rautines for disk in Applesoft.) 
Pe 


Pmror’s 20 DF F7 2225 STORE JSR GETARYPT 
FoAg: AQ OS ae LDY FS 

fd; Bi 9B re | LDA <¢LOWTR), ¥ 
FSAG: AA Raat | TAX 
FSA7: 88 ae? DEY 
FAG: Bi FE eras © LDA ‘(LOWTR), ¥ 
PAA: EGS Of Ped SRC #4] 
FSAC: BO O1 ae i RCS SLI 
FSA: CA Pee DE x 
PSAF: 8S BO ooh SLT SPA LINNUM 


i 


FSRi: 86 31 Peed SPX LOI NANUM+ 1 
PSB3: 20 CD FE +23 JSR WRITE 


PSB6: 20 BC F?7 323 
FoSR9: 40 CD FE 


JSR  TARPERNT 
JMP WRITE 


ted td 


At 
OO “i 


BR PP 


FSBOs 20 DO FY 3240 RECALL JSR GETARYFT 
PSBF: 20 FD FE +241 JSR MONREAD 
PaCe: AO O2 224A LDY #2 

FSC4: Bl FR 2245 LDA <(LOWTRD,Y 
PSCé: CS SO 224g CMF LOINNUM 
FSCe: Ce | 7 e4AS TINY 

FSC9: Bl 9B eed LDA (LOWTRD, ¥ 
FSCB: ES Si Pe? SRC LINNUM+1 
FSCD: BO O38 2248 BCS MOE, 

PSCF: 40 10 D4 +249 JMP  MEMERR 
F3D2: 20 BC F7 3250 MOK J&R TARPERNT 
F3DS: 4C FD FE +2051 JMP  MONREAD 


eae =a 
— Roar a Bo 


ons Boe oe 


32S Kk Hires initialization routines: 
Pet 
FSD8: 2C SS Co 2255 HGR2 BIT HISCR 
FSDB: 2C S2 CO 3236 BIT MIXCLAR sDefault ta full screen 
PBDEs A? 40 Peas LDA #B4AO 
FPSEO:s DO O68 Pawo ENE SETHFG 
BSE: AY 2O ved? HGR LDA #BLO 
PRE4: 2C 34 CO +260 BIT LOWSCR 
PSE7: 20 33 CO >261 RIT MIXSET Default toa mixed screen 
PSEA: 85 ES 7262 SETHFG STA HRAG 
FEC: AD S7 CO +263 LDA HIRES 
PREF: AD SO CO 2264 LDA TXKTCLER 
Pare: AG OO 2263 HCL LDA #O Set far black bkgrnd 
PFSF4: 85 iC read STA HCOLOR] 
FSrFG: A ES 22h?  BRGOND LDA HRAG timit hires screen mem 
FSFS: 85 1B 2268 STA SHAFEH 
Par As AO OO Re ted LDY #0 
ParC:s 84 14 wer STY SHAPEL 
PSFE:r AS iC 2271 BEGNDI LOA HCOLORY 
F4OoO: 91 if te AP. STA <(SHAPEL)D,Y sClear hires toa HCOLOR! 
F4O2?:s 2O PVE F4 2273 JSR CSHFT2 sCarrect far color shift 
F4oSs Co wie FA INY 4(Slows clear by factor of 2) 
F405: DO FS Para hes ENE ERGNDI 
F4O8: ES iF 227& INC SHAFEH 
F4Ooeas AS 1B S277 LDA SHAFPEH 
— Gee 27 SF LTS AND HBF : Done? 
F4OR: DO FE 2279 ENE BEGNDI 


Faia: &0 wea RIS 
231 
ceme *€ Hires position and plet subroutines 
— A x 
ii: 85 E2 2284 HPOSN STA YO gEnter wi: = 
Pais: 864 EO bd = be STX xXOL . XL in a nr es 
F4i%: @4 E14 286 STY XOH ; and XH in Y-req, 
F4i7: 48 »2Q7 PHA | 
F4ihs 29 CoO PAA AND #800 
Faia: GS 24 22a? SrA GRASL gFor y-coar = OOARCDEF 
Fail: 44 wie PO) LSR gcalculates base addr 
F4iDs 46 eats Lok sim GBRASL,GRASH far 
Faiz: OS 2 aoa DRA GRASL ACCESSING screen memory 
F420: 835 2 a Be SfA GBRASL yVia (GRASL),Y. | 
F422: 48 2O4 FLA | 
F423: 85 27 Pete STA GEASH 
Rae OF 2296 AR ;Calculates 
Raed: OF Pere ASL. s GRASH = PPRPFGHCD, 
Fae ys OF 2298 ASL. : GRASL = EABAROOO 
F428: 24 27 22atF ROL GERASH gwhere FRPRP=O0O] for $2000-S3FFF 
Rae: OFA BOO ASSh. sand PRPR=O10 far #4000-G3FFF , 
F42khe 24 27 2a] ROL GRASH ggiven yrcooar = ARCDEFGH . 
F4geDs OF 2SO? ASL. 
P4aee: 644 24 7505 ROR GEASL 
F4anO: AS 2? eS LDS GRASH 
F432: 29 IF 2o05 AND HiF 
F4t4: OF ES POS ORA HRAG 
P43: GS 27 eS SF f S74  GEASH 
eases EA eS TEA ;Divide XO by ? far 
PNS94 CO QAO Bs eae CRY #O tindex from base adres (quotient) 
» robs FO OS PSO BEQ HFOSN2 rand bit within screen mem byte 
F4 SDs AO 2S pe a | LDY F235 :imagsk specified by remainder). 
Fane: 69 O4 pe Oe ADC #4 
F44i:s C8 volo -HPOSNI INY 
F4g22 E9 Of 2S14 HRFOSN2 SEC #? 
F444: BO FRE ~SsiS BCS HFOSNI 
F446: 84 ES SLs STY  HNDX sWorks for XO from O ta 279, 
F44e: AA PS TAX slow byte in X-req, high in 
F449: BD BO F4 3318 LDA MSKTEL-HFS, xX 
F440: 82 30 RS ee STA HMASK g¥r-req an entry. 
F44E: °& BR 4 8, TYA 
Fades 44 Pe Lik 
F4hO: AG E4 Poee LDA HCOLOR? If on odd byte (carry set) 
F452: 85 1C 7oLs STA HCOLORI tthen rotate bits 
Fahd: BO 2a a BCS CSHFT2 
Faso: 60 O20 RTS 
Pr a) 
F457: 20 11 F4 3327 HRPLOTO JSR HROSN 
P4ERA: AS LC Soe LDA HCOLORI *Calculate bit posnm in GRAS, 
P4asCs Sil 26 pe ae EOF <(GERASLD,.Y +: HNDX, and HMASE fram 
F4SE:s 25 30 PGS @) AND HMASE. s Y~-coor in A-reg, 
F440: 21 24 PSSl FOR <(GHRASLD,Y 3 X-coor in X,Y regs. 
F4i22: 91 2 Ms ST& (GEASL)D,Y For any Ii-bits, substitute 
F4h4e 60 ooo RTS gcarreso bit of HCOLORI., 
a 4 
aSBS &€ Hires LLR,U,.D subroutines 


LE TRT BFL RIGHT Use sign for left/right subr. 
Lee T LDA HMASE 
Lore gohaift low-order 7 bits 
Boe ‘LErii ; |f HMASE one bit pagsn. 
FOR #800 
LR I STA HMASKE 
RTS 
ter tt DEY sDecr hoariz index 
Bri. LEP TZ 
LDY #82? Ure ao around screen 
Ler be LDA ECO :New HMASE, riaqhtmast 
NEIWIMD X STA HMASK s dot of byte. 
SPY  HNDX sUndate horiz inde». 
CSALFT LDA HOOLORY 
CSHE TZ ASL sRotate low-order 7 bits 
CMF FB CO ; Of HCOLOR one bit posn. 
Mei RSI 
LDA HCOLORG 
EON #e7F 
STA HCOLORY 
RTSi RTS 
RIGHT LDA HMASE 
ASL. gohift low order 7 bits 
EOR #880 : of HMASE one bit posn. 
BMT LRG 
LDA EST 
INY sNext byte 
CRY #40 
ROC WNEWNDX 
LDY #O yA ao around 
BCS NEWNDX rAiways taken 
LRUIDX 4d CLC sNo °O deg rot 
LReLIDX 2 LDA DXH 
AND #4 gif bit2=Oo then no oleot 
BEQ LRUD4 
LDA He? F 
AND HMASE 
AND <(GBRASLOD,.Y Screen bit set? 
BNE LRUDS 
TNC COLCOUNT 
LDA He ?r 
AND HMASE 
BRL LIRLEDS Always 
LUD 1 CLG §No GO deg rat 
LRUD2 LDA DXH 
AND #4 gif BbitZ=-O then ma plat 
REQ LRUD4 


LDA <(GRASLD,Y 
FOR HCOLOR] 


Set hires screen bit 
+ 


AND HMASE ; te corresponding HCOLOR., 
ENE LIRLIDS gif screen bit changes, 
TNC | COLCOUNT gthenm incre colleen count. 
LRLIDS EOR (GRASL), ¥ 
STA  <(GRASL), ¥ 
LPRLY 4 LDA DXH Acdcd quadrant ta specified 


ADC ODRNT s vector and move lft, rt, 


F4CCs 


ACE s 
Fado: 

Dis: 
EADS s 
F4Apes 
Paps z 
Fangs 
FADE s 
FADD s 
EAD s 
Fae ds 
Fai} s 
ai Ss 
Fae s 
Fakes 
FARE s 
Eae Ds 
FOEE s 
FAP EDs 
Fae 2s 
F fh ah 
ed a 
Rae os 
Ae Ss 
PAP Es 
Pare Ds 
Paes 
PST yds 
» sO: 
femcid} s 
FS0OS1 
PDO? s 


FSOS s 
FoOC: 
PSOE s 
PS10r 
ake p oa 
Poids 
are Bed 
F518: 
PolAs 
PFSiCe 
POLE: 
ker Pn OF 
he are 
en as 
PS26: 
ae 4 = o- 
Fe a8 
PS2Cs 


Pak & 


, 


i 
Se se 
PPS 
2397 
298 
ba ar 4 
er TST ®) 
2404 


FR 2402 


e4OS 
PAO 
SAOE 


Pa 240d 


PAO? 
2408 
2A oe 
PALO 


EQS 


LIF DOWN 
LiF 


UP 4 


UPS 


UPS 
ae 
LP 

LP DIN 1 
DOWN 


O44 


DOWN 


DOWN I 


DOWN? 


%¥ Hires 


line 


GRASH 
EQIC 
UP 4 
GRASL 
a 
EQS 
urs 
#E iF 


UPS 
HLS 


GRASL. 
HERO 
UPS 
HERO 
GRASL. 


UPS 
HEIF 
GRASL 
HEP 
SRBASH 


GRASH 
Hd 

K-~ 4] 
EQIC 
UR DWN 1 
GRASL 
DOWN 1 
HEEO 


4 
DOWNS 
GRASL. 
#EIO 
HEP O 
DOWNS 
HEP OD 
GRASL 
HF AG 
DOWN? 
#EEO 
GRASL 
LIF DWN YT 


a LIED 
§ $12Qn 


sSiqgn 


"RS BS CR 


with 


or down based on 
and carey. 


for up/down select. 


Calc base adrs for next 
line up in 


(GRAS) 
i92-line wrap around, 


gRKKK RIT MAF kKKE 


sfor row 


: GRASL. 
» GEASH 


gwhere 


= ARCDEF GH 


EARAROOD 
PRPRFFGOHCD 


fi 


PPP=OO1 for pgi 


sClalc base adr for next 


: line down, 
K 


with 192 


line wrap arounoid. 


draw subroutines 


PSO: 48 P4aSi  HLINRE PHA 
PSS: AP OO Ae LDA #O poet XOL.H and Yo 
Pooor 85 EO 2A STA XO g; to © for rel line draw 
Feo: 82 El 2AS4 STA XOH s (DX,DY). 
io78 85 E2 PASS STA YO 
S393 6&8 24S PL 
Resa: 49 S487? HGLIN FP ey :On enteys 
PSSBs SB 2A SEC g XL An-reg 
Foote ES EO 2A Se SRO XO s XH: X-req 
Poke 4&8 PASO PHA ; Y: Y-reg 
RE ors 84 PAST TXA 
Pa40; ES €1 "Abe SEO XOH 
Fo42: 85 Ds PA ES STA QDENT sCale ABS OX-xXO) 
Po44: BO Of 24 os BCS HLING s in (DXL,H) 
P46: 68 24S FLA 
Pm4?: 49 FF PA bd ROR #8FF :X dir to siaqn bit 
FI49: 69 O1 eA? ADC #14 s Of gqdrnt. 
Pees 4 24 So Fb 5 : O=riaht (DX pos) 
Poss AP OO PASS LDA #O ¢ il=left (DX neq) 
POSE: ES DS eA? e SEC OQDRNT 
PFQ0O0: 85 Di 2471 HLING STA DXH 
Fower 85 DS eA? ia STA EH g:imit EL.,H to ABE (X-xXO) 
Foo4: 68 247 PLA 
FSSS: 8S bo 2A? 4 STA DXL 
Baa? : 85 D4 2A? S STA EL 
FSO9: 68 2A? & as 
PEA: 8&5 EO rs ard STA XO 
FSuc: 86 E1 247e STX XOH 
PSoE: 3S es TYA 
Aor: 18 24AAo CLC 
. #602 ES ES 743i SECO YO sCaic —-ABSCUY-YO) <1. an BY 
Pméies FO O4 742 BCC HLINS 
PESo4: 49 FF 74a EQR #BFF 
FSB66: 69 FE. 24Ag SDC #8FE 
F366: 85 D2 7485 HLINGS STA DY sRotate Y dir inte 
FEOoA: 84 ER e4 Be STY ¥O : gdrnt sign bit 
FSO6C: 66 DS r4g? ROR QDRENT » (Ou, L=dawr) 
FESE: 38 24 8a SEC 
FS4F: ES DO 7489 SBC DXL sInit COUNTL,H 
FEis AB 2AOQ TAX »s to ~(DELTX, DELTY+1) 
Foret AP FF 74h LDA #éFF 
F574: ES Dil 24S? SBC DXH 
FS76: 85 1D 24AGs STA COUNTH 
FE7S8: AS ES 2A LDY HND* sHoriz imdex. 
FEYA: BO OS PADS BCS MOVEX2 sAlways taken. 
RPS? ls OF 7496 MOVEX ASL. sMove in X-dir. Use 
FE?D: 20 465 F4 2497 JSR LFETRT © QDRNT bitéd for lft/rt set. 
FESO: 38 2498 SEC 
FESi:s AS D4 24899 MOVE X2 LDA EL GABSuMe carry set 
FS83: 65 D2 OO ADM Dy 2 (ELH) -DELTY to ¢&L,.h) 
FESS: 85 D4 2HOL STA EL sNote: DY is (-DELTY)-1 
FSa?7s As DS PIVE LOA EH sCarey clr if (EL.,H) goes neq. 
FDOS:s ES OO 2S SEO #0 
FSSB: 85 DS SSO4 HCOUNT STA EH 
FocD: Bi 2 3SOS LDA (GRASLOD,Y 
“ars 45 1c PEO} ER HCOLORG sPlot dot of HCOLORI. 


FS9ie 25 30 eee AND HMASE 


aie be 
rSose: 
Po? 73 
ESOS: 

PAs 
FSvts 
FOIE: 
BO) s 
PSA 8 
FSP 8 
PEAS s 
PAE & 
SAA 8 
SPS & 
SAE & 
PSE s 


FEE 
ae) 
are) 
FSBS: 
FSBG: 
ake) 0A 
SRE s 


r - 
“3 
8 
fh x 

a 
sa 


» ws 
FEED s 
FSCO: 
C2 3 
FSCor 
FOoCG: 
oar a 


FSCE: 
PSCDs 
FSCEs 
PEDO s 
PoD2s 
PSD 
FSDOR 
F3D6: 
FOD7: 
FSDS: 
FED A s 
PSDC st 
PS DD s 
FSDE s 

Eis 


FSE2: 


wae 
atm 


C4 
iD 


“— 
oho 


= DS 


DA 
DS 


D4 


~ DO 
= D4 


rw) 


= D1 


DY 


a 
EC 
CS 
Ay] 
&1 
ig 


F 4 


a 


= 3 


SD 
4A 


Pet 
eae Oh 
eel 
rae ae 
pe BP 
owls 
etl 4 
2S 
eld 
ane ard 
we em 
eal? 
en se ©, 
rw at 
*e, Kare 2h 3 


FP 3 Bin lee 


oP” Sed clhes “ood® 


>24 


Oe tae | 


oi” eed oew teed 
*, Ex? 
rebate 


euhe 2 


Re on 
woe? 
eb) 


voted 


eee 


HL IN4 


MSE TRL 


EQIC 


x one byte precisian, 


COSTRL 


Peter enEee Benee BETES ereeT 
O000e a0Ete Sees Senne sence 


HE xX 


HE xX 


HE x 
HEX 


* (mat called 


HF IND 


sDane (DELTX+DELTY) dots? 
HL TN 
COUN TH 
Ris. Yes, return. 
QDRNT sFor direction test.. 
MOVE X eif carry set, (EL,H) plot 
UF DOWN : if clr, neq, mave 
EL 8 (EL, HI+DELTX to (EL,H). 
DxL. 
EL 
iH 
DXH 
HOOUNT rAlways taken _ 
“ZLOOOOOO 
“~LOOOOo LO 
“1OoOoo Too 
“%1LOOOLOOo 
“ZLOOTOOoO 
%ZlLOLPoooogd 
“1 100o0oo 
if: 
* Table of COS(9O#X/16 degrees) #8100 ~ 1 with 
X=O to és: 
PEFEEFAFSECE LT D402 
B4A18D78é6é1493118 
re 
* Hires coordinate restore subroutines 
by any Applesaft routine) 
GRASL. ;Converts base adres 
GRASH s to y-coor. 
+S 
sFor GRASL=ESGRAROOO 
GRAS : GRASH=PFFF GHCD 
sgqenerate 
2 Yecoor=AkbCDEFGH 
YO 
GRASH (PPPS screen page) 
+7 
Yo 
YO Converts HNDX Cindex fram 


LDA 
ASL 


Page 105 


(GRASL).Y 
(SRASL), ¥ 


SF80F Coes BHOSe BdOC8 Seeee 


sias Sees Sess as tees cp ee 1 ro sees oot tes et 


Poe4: AS ES eS 1 LDA HNDX : base ades) and HMASK 
BSE Gs es Par. = Wi ASS ; (bit mask) to x-coor 
wert 60 ES Pant ~ Yes ADC HNDX : am ¢XOL,H), range 
FQE?s OF ees 4 ASi. ‘- OGL SS 
EA: AA eat = be TAX 
PSER: CA Sood DEX 
SEC: AG 3O bw = id LDA HMASE 
Poees 29 7F Rarat to AND #o7F 
PorO: ES oOo? HEOINDI INX 
PSP is 44 rar Lok 
Pore: BO FC we 4 ENE HE OND 
FSF4: 85 €1 ae Firs BA KOH 
REP Gs OF ras TXA 
Por: i186 woe 4 a gCale HNDX*7+LOG CHMASE), base 2 
rOores 65 ES Pe Fes ADC HNDX 
FOoFAs 9O O02 Pre Pe = ECC HFINDS 
Porc: £4 &1 bre Ward ING XOH 
Pores 8S EO 2278 HRIND2 SPA XOL 
P&OO: 60 rar? KRTB2 RTS 
SEO 
PoSil  * Hires shape drawing subroutines 
P| = 
FoOis 84 14 vee = =DRAWO STX  SHAFEL pShape pointer 
FOOS:s 84 18 24 STY SHAFPEH 
PSOE: AA SSeS DRAW] TAX 2A holds ROT (O-#3F) 
FOOS: 44 eee 7 core 
POOF: 44 ee? LSR 
FSOSs 44 ain LSR 
FSOS: 4h ere) = Look 
OA: B85 Da Be bed STA QG@DRNT SQDRENT O=Ur, LRT 
~ ws 8A Rare sed © TRA 2 DWN, Sele T 
F6&OD: 29 OF be be ae | AND #BF 
FOOFs AA Pore TAX 
F610: BC BA Fa +3935 LDY COSTRL., xX rSave COS and SIN 
FSS: 84 DO ee STY DxXL : Values in DKXL and DY. 
F415: 49 OF Paw be de EOR Fer 
P&L 7s GA aa he cs) TRAX 
F618: BC BB FS +397 LDY. CUOSTRL+1, A 
FG6IBs Ce Pathe d INY 
Fils 84 D2 Ps be he 4 STY DY 
FSIE: A ES 7 OOO LDY  HNDX gindex from base adres. 
PS20s AR OO PhO 1 LDX #O 
Péte:s 8S EA 2OhO2 STX COLCOUNT Clear collision count. 
BPée4e Al 1A 7hOS LDA <(SHAFPEL,X) First byte af shape defn 
FPéeé: 8 Di 7604 DRAWS STA DXH 
P4228: AZ 8O 2GOS LDX #8ao 
FS&2As 84 D4 2hOS Stn Ei SEL .H for fractional 
F620: 86 DS ee? STX &H eo b.R,U,D vectors. 
FSZE: AG E?7 POOR LOX SCALe 2 sheale factar. 
POSO: AS D4 7609 DRAWS LDA EL 
F632: 3 POLO SEC gif frac. cos overflow 
F633: 65 Do 2644 ADC DXL : then move in specified 
F635: 85 D4 rei a STA EL : Yector direction. 
F378 9O O04 PG1S RCo DRAWS 
ES39: 20 BS F4 2414 JSR LRUDI 
SO. 18 2613S i EO 


FSS3D:2 AS DS "615 DRAW4 LDA EH rif frac. Sin overflow 


FOS s 
FS413 
FSA 2 
Pics 

483 
ESAS s 
PAK g 
FOADs 
FS4E s 
FOAF s 
PSE s 


FoS2s 
FSi s 
F6&S6: 


FASEB s 
FOEA s 
FSECs 


FS&SDs 
PGor s 
POS1s 
P&S2 
PSS: 
F554 
FSS: 
NSS 3 
> with Hy 
FOS? s 
FO&OEs 
FOC: 
POSE g 
FOL: 
F733 
F fy 7 hs 
FO77% 
F578: 
F&A: 
Fé/Ce 
FOo/7ESs 
POEOs 
BOE s 
rOSS4 s 
FOES s 
SES s 
BSE § 
FSSC 
F&SE: 
FOSF : 
F&91: 
FSIS: 
FOSS: 


9S: 


&& D2 a 
go DS cme ea 
FO OS O19 
20 B4 F4 3S&20 
CA fs I 
DO ES One 
AS Di 2623 
Ae a i 
4h ee 62 
Ae S26 
DO D4 S27 
628 

EO 1A f= 
DO O2 S28 
EO 1k a a 
629 

AL 1A S27 
DO CA oi) 
GO dy dd 
&32 

ts 

eh 4 

BG 1A 2OSk 
4 1 Pb ab 
re os = 
4A 2O39 
hoo 2639 
ah ey 2O39 
oe 2Oo9 
ao DS PSA 4 
RA 2642 
“a? OF rods 
PA hy dh 
BC BA FA 3645 
84 Do zo To 
49 OF at 
ta rO48 
BRO BR FR +649 
Ss 6BO 
84 D2 2G 1 
A4 ES a a 
2 OO AES 
Bo EA Ho} 
Al 1A EA 
BS Dd Pedy 
2 0 Poo? 
Ro D4 7 Og 
84 Ds 2G89 
AG Ee? 2 OOO 
AS D4 POS] 
es thos 
6&2 DO ert Oi 
BS D4 2hh4 
PO O44 2 OGS 
20 OC F4 2666 
is S47 
‘663 


DRAWS 


NI 


ADC 
TA 
BCC 
JSF 
DEX 
BNE 
LDA 
Lok 
Lok 
Lok 
BNE 
INC 
BNE. 
INC 


LDA 
BNE 
RTS 


X¥ Hires shape 


XDRAWO 


XDRAW I 


X DRAW? 


X DRAWS 


X DRAWS 


ST x 
ory 
TAX 
Lk 
LSR 
Lor 
Lok 


freee Sones aSene SEees Steer 


: then move in specified 
EH # Girectiont+?0 deq. 
DRAWS 
LAUD 

LOO on scale factor. 
DRAWS 
DXH 

yNext 3 bit vectar 

of shape defn. 
DRAW? yNot dane this byte. 
INCR. SHAPEL 
SHAPE L 
NMI 
SHAPEL +1 


({SHAFEL , X) 
DRAW? 


gNext byte of shape defn. 
Done if ©, 
xCraw subroutines 


SHAPEL 
SHAPEH 


:fSee DRAM comments 


QDRNT 

#F 
COSTBL, x 
DXL. 

#OF 
COSTBL+1, X 
DY 

HNDX 

HOD 


COLCOUNT 
(SHAPEL, X) 


i 


XDRAW4 
LRUDX 1 


AD.EH:DY:EH 


FSS: 
FSO: 
POSD s 
“@F: 
FSA d s 
ESA: 
PSPS e 
FSAY : 
PS g 
FSA: 
FOE s 
BSAC s 


FSAE : 
FERC s 
FSR? : 


FSR4: 
FSHS: 
FSRS s 


OED s 
FP S&BCsr 
ESEP s 
FOoCl: 
F6CS: 
i aT 
. wet % 
FOCI: 
PSCE g 
ESODs 
FOCE: 
F OCF 
ESD: 
FOSDi: 
FSD Rs 
F4SDS: 
FSDS s 
FSDEs 
FSDDs 
FODF : 
FSEOs 
FSE Ls 
FOES 8 
FSES: 
FSES: 


FEG: 


FOES: 
FSEC: 
FOEEs 

Os 
FOF Ss 


OS 


1 ics 


7D 


Os 


Od 


O08 


4 


2643 
2668 
2669 
rt mt 
Oa? 
tO 7O 
reed 
Pa as 
Pa fe 
wise 4 
ern ae 
2h? & 
raed 
2&7 8 
27a 
2678 
2678 
2& 73 
70/F 
2OEO 
268 1 
OSs 
2683 
2684 
POs 
OSs 
2h? 
2688 
2689 
2O9OD 
2OF1 
POT 2 
O93 
2h F4 
revo 
OPS 
297 
2&h9R 
2699 
7 OO 
eP. 
Be St 
FOS 
2 POG 
Pe Zw he" 
POS 
crue 
2108 
POD 
Fd 
ar oe ee | 
bt ie 
2FAS 
efi 
2715 
2fi& 
PF RE 


F4 


DD 


DE 
Eo 


ES 


XDRAWS 


NI 


LDA 
ADC 
a 


ROC 
JSR 
Dk x 
BNE 
LDA 
LOR 
Lik 
LSR 
BNE. 
INC 
BNE 
INC 
LDA 
BNE 
RTS 


XDRAWS 
LRUDX2 


XDRAWS 
DAH 


XDRAW? 
INCRK. SHAPEL 
SHAPEL 

NI 

SHAPEL + 4 


(SHAPEL, X) 
ADRAWS 


*%¥ Parsing routines used by BASIC for Hires access: 


HENS 


HENS I 


GGERR 


HOOLOR 


JSR 
Jor 
ee g 
LOX 
CRY 
BLT 
BNE 
CF x 
Rik 
TXA 
PHA 
TYA 
RHA 
LDA 
JSR 
JSR 
CPx 
BGE 
SX 
PLA 


RMN 
GETADR 
LINNUM+ i sGet horiz coor in X,¥ 
LT NAMUIM 
#2 BO Make sure it ise < Bao 
HENS 1 
GGERF 
He SAO 
GSE RR 
ghoave horiz coor on stack 
+7? 
SYNCHR sCheck syntax 
SE TRY T Get vert coar 
HBO rCheck it is «< #00 = 192 
GGERR 
DSc TMF ghave ait 
:Retrieve hariz ceaar 
DSC TMP go and vert coar 
tReturnm toa caller 
GOE RF :lileqal quantity 
GSETRYT 
#2 
GGERR 


COLORTEBRL . X 
HOOLOR Z 


POF Ss: 


FOF Ss 


FOF9: 


FCs 


FOFEs 
F700: 
F702 8 
r FOS 
re 7O8: 
F/OERs: 
F/OD: 
F7OF 
P/iss 
P7iIiSs 
P7173 
e718: 
F719: 
EP? LR: 
F7IE:s 


F721: 
F724: 
F726: 


Jes 
7 SRS 
F72C3 


F734: 


Pe So: 


F730: 
F739: 
P7382 
F/7SD: 
7 SF 3 
E7413 
re re 
ey ads 
BeOS 
E747 s 
YAS s 
E77 4a 
E74acs 
P74): 
AEs 
F/S0Or 


Fé 
F4 


(0) 


DE 


és 


ae 
rs 


fd 


ES 


RTS3 


COLOR T EL 


HPLOT 


HPS 


ROT 


SCALE 


DRWPNT 


DF 4 


DF ie 


ePsee Cetee Senne cenee Beebe 


OOZ ASI 7 F ROADS F 


#to sContinued plot requested? 
HPS ghranch if so 

HF NES :Get coor of start point 
HFLOTSO gPilot it, setting up coar 
CHRGOT 

$03 gLline specified? 

RTSS gsExit if not 

SYNCHR 

HENS rGet coor of line end 

DSC IMr gbet uo for line 

DSC TMP 

HL. IN sFlot line 

HR glLoaao till ne more "TO" 
GETEYT 

ROT Z 

SE TRY} 

SCALE Z 

SET RYT rohape mumber soecified 


TRDE. SHAPEPNT : SHAFPEL 
TR. SHAPEPNT : SHAPEL 


SHAFPEPNT 
SHAFEL 
TR. SHAPEPNT+1 3 SHAFEL +4 
SHAFERPNT+ 1 
SHAPEL +1 
HO 
(SHAPEL.,X) sShape defined im table’? 
DF A 
GGERR cerror 24° mor 
sFind address of shape 
Beam : from table. 
SHAPEH 


(SHAFEL),Y 
SHAFEL 


(SHAPEL).Y 
SHAPEPNT+1 


PJ oe 8 
PSs 
7 BGS 
ELS? s 

Litt s 
Ee 73D: 
F7&O:% 
P7432 
F7Oh6: 
F748: 


-7h9 2 
F76C: 
F7OF : 
eS 7 2t 


F773 
Peres 
E7793 
F77Bs 
F77Ds: 
eS 7F 
F730 
e782: 
F/3S5 
BE /7RSs 
F783: 
F789: 
EP RA: 
PEC 
. . BE: 
F/ SF s 
F791: 
e/92k 
P7932 
e79S3 
P/96:% 
F798: 
Ee SA: 
F/9Cs 
E79E: 
Be AOs 
EP AAs 
BY AL s 
Yas 
7 AP s 
P7AER: 
EV AC: 
YP AE 8 
F/7HO?: 
F/7B2: 
EVR s 
r7B/ 3 
F/EOs 


- 7/ECs 


oh 


mS 
wd 
SE 
O27 
os 


io 


a OP A 
3 70 
a oD 


nF 


ES 
pat 
Fr 
i 
Fe 
Os 


oO? 


Me) 


DE 
Fé 
Fa 


ad 
FS 
aid 
Fd 


FE 


D4 


FC 


a a 


2 FP EG 


27 GS 
2 FES 
>fe? 
7768 
*7o9 
*770 
bor a fa 
Piva 
2773 
P74 
a Be dees 
>7FIb 
a a 
+778 
277I9 
> 7EO 
»7BI 
27782 
2783S 
2784 
7785 
78h 
>787 
37788 
2189 
FOO) 
2794 
21 Vk 
2793 
2794 
Sf a 
79S 
2I97 
2798 
2799 
ROO 
'BOl 
BO? 
*BOS 
7BO4 
2BOt 
BOS 
BO? 
*BO9 
“BOD 
TB1O 
-Bil 
e812 
Peis 
"B14 
reBis 
7O1S 
>B817 
"B18 
7BL9 
"Oi? 


DRS 


DRAW 


XDRAW 


SHLOAD 


TAPEPNT 


SrA 
PX 
JSR 
CMP 
RNE 
JSF 
JS 
JSF 
LDA 
RTS 


JSR 
J MP 
JSR 
LMF 


LDA 
STA 
STA 
LDY 
STY 
INY 
o1y 
Jk 
CLC 
LDS 
TAX 
DE x 
mT X 
SEC 
PHA 
LDA 
TAY 
INX 
BNE 
DEY 
STY 
SRC 
CMP 
RCC 
BNE 
JMF 
ofA 
oA 
orA 
STA 
PLA 
STA 
STA 
ara 
STA 
JSR 
LDA 
J MF 


CLC 


SHAPEH 
SHAFEL 
CHRGOT 
at 
DRS 
SYNCHR 
HENS 
HOS 
ROT Z 


DRWPNT 
DRAW I 

DRWPNT 
XDRAWI 


#0) 
AIH 
A 
#$ TO 
ALL. 


AL. 


MONREAD 


MEME TZ 


AL 
LT NANUIM 


MEMS T Z+1 


SL. i 


An 


LINNUM+ 1 
STREND+1 


Si 
SLS 
MEMERR 


MEMS i. +1 
FRETOP+1 


ALH 


:have adres of 


sCheck syntax 


shane 


;Draw it where’? 


fEntries from BASIC 


BSHAPERPNT+ 1 


SHAPEPNT 


MEMS IZ 
PRE TOP 
ALL 
RD2ERIT 
#5 


MONRE AD? 


ADD, LOWTR: LOINNUMs ASL 


AS 
65 
ri 


Ay 
Oo 
Em 


Ao) 
Et 


20) 


AS 


+ doa — 


AS 


SO 


Ao 
i4 
ES 
Ore) 
i4 
Ft 


OA 


DF 


DS 


& 


ee ae J 


Db? 


agssembly-- 


eeGee Hones cones sense eneee 
SO88e S80e cones casee cores 


S000 BOEbe enete Reser cenes 
60080 Stee concen Sbaee sence 


Page iil 
AD.LOWTR: LINNUM: A 
LOW TR 

LI NAUIM 

a ae 


AD.LOWTR+ Tel INNUM+1s ASL +4 
LOWTR +1 
L INANUM+ 1 

Pg Wi a | 


#4 

(LOWTRD , ¥ 
GETARY2 

TRDB. HIGHDS: A1L. 
TR.HIGHDS: ALL 
HIGHDS 

ALL 


TR.aHIGHDS+1sAilL+] 
HIGHDS+1 
ALL +] 


* Non graphics stuffs 


GETARYPT LDA 


* Note that 


STA 
JSR 
LDA 
STA 
JMF 


*¥ outside the 


HTAR 


HTAB I 


HTARZ 


JSR 
DE x 
TRA 
i 
BLT 
SEC 
PHA 
Jak 
PLA 
JMP 
STA 
RTS 


Hi x 


if WNDLEFT icf mat ©, 


HAO 
SUBFLEG 
PTRGET 
+O) 
SUBPFLG 
VARTIO 


(Called by STORE & RECALL 


HTAR can pint 


screen (@g., in the pragram). 


GETRYT 
HAO 
HTARS 
HAO 
CRDO 
HTART 
CH 


CRD2D?7 gleft aver 


19240 bytes 


Errors: O 


SBymbol table - alphabetical arders 
AH =i 3D Ai = 30 mae ih AF a ae a ih OE 
AES = SE RAF MD AD = DOOD ADS = SE VES AD = $e POS 
AD2 = SE PCE ADS = BE YEA AD4 ai YEE ADS = iE YF A 
MD ADD =$ OOOO ADDACC =$ECDS ADDON = DS9S ADE XZ =P ATO 
ADE XS =r OLE ADE XA = hE Ae ADE XF a= iE AOE ADIEXF =$E CGE 
ADMAN = SE SSS fii X =$ECAQ AMPER = SORES AND = DP SS 
ARG am th Ss ARGSGN =$844 GARITH == DOCS: ARRAY =$E TLE 
AR YFOUND=$EF 1SE ARYLOOP =$E 14D ARYNAM?S =$E 179 ARYRNT =&94) 
ARYSTR =GE ROC ARYTAR =#SE ARYVASD =FE4TA BRYVAR =bE4CE 
ARYVAR =B8E4C2 ARYVGO =8E4D9 ASc =$E SES ASCHEX =#DAL2 
AT? =F 21S ATTN =P OOE ATMA =F OAS ATM ath OR 
ATNS =F OC 7 ATNSER =$FOCE AY INT =SE LOC AtorFAC =#ESEO 
AtaGrACS =r atic BADNAM =&DFF4 BADSURS =¢@D2CR BILLION =#ED14 
Ribimi ONE=$E DOF ? EEGND aie OSE S REGNDI =$F SFE BLTU =P OSS 
BL TLS = DASA M BPD ze &7F RREAR IN =$D35D RoR = Pr OAS 
MD BUMP = DOOD BYPASS =$£O1l2 CALL =$F TDS CANTCON =$#D3232 
CAT =P ES? He sm 2 CHARA =$OD CHECLS =$DERS 
CHECOM =8DE RE CHEDIM =$E 146A CHE DF =$e Cod CHEMEM =8DSDS 
CHENUM =$DDSA CHEOPN = $DERE CTHESTR =8DDSC CHETYP =$DDR4 
CHEVAL =$DD46D CHEGET =$8) CHRGOT =$i7 CHRSTR =e 546 
CLE FS =i DOSA MLEARC =6DS4C CMDTARL =#DOag CMPEML =$EDS2 
CMPDONE =$DF C1 CMPHM = hE DASD CMPLOOPE =$DFAAG MD CMPR =H DOOO 
O™ COLCOUNT=$E 4 COLDST =F 12a COLON? =6Da42 COLOR ath a 
COLOR TRL = $F GF 4S COMBYTE =$E74C COMPARE =$DDE4 CON =$DAA I 
CONINT =$8E SFE CONT =D S CONUFK =#E SES COFSTR =#DASA 
CORY =$DAR? COS = SEF EA COSTRL =$FSRA COUNTED =#E DE? 
MOUNTH =81D OUT =F DED CRPRMASKE =614 CRROP = DDR 
CERTYF = 889 RDO = DAF Ei CSHF TS =$F4A7E 7 CSHIFT =F 47C 
CTR? = DRA CURLIN =$7S CURLEY = BFS CV = OD? 4 
i az 4 DATA = DSSS DATAFLG =G13 DATAN a2 DES 
DAT IN = CSS DATLIN =$7R DATPTR =#7D MD DECK ath DOO 
DECTEL =$EES9 DEF mE S13 DE. mF RST DESC? = $§ DAC 
DEST a 0) DFLTDIM =r iF 7 DIM ih DE DY DIMFLG =8#10 
DIMNLUF = SERS DT MOK fii oF DINOS =$E27O DIR? a DEC? 
DIRCT =D VES DIV mE OEE DIVO aE ATT DIVZ mE AE T 
DiVby ZRO=$D2E5 DM TH =$DE4 | DOCMF = DF ES DOERRMSG=$D419 
DOMATH =$DE4AS DOMTH =f DE SA DONE =$BOS TO DOREENT =#DEOO 
DOSFC = DER AT DOWN ath EO Ss DCN 7 an i Fe DOWN? =F SAC 
DOWNES ath Sic DF I ati 7 4] DFS an fi 7 47 DFS mh POS 
DEDIG = SECO? DFFLE = OR DF L = $i DOF DFLEFT =8ECAS 
DPLOC =f DOE DFRIGHT =$ECR2 DRAW =e OS 7 DRAWD =F AO 1 
DRAW 1 =F OOS DRAW? mB G2 S DRAWS mh AO DRAWS mh SD 
DRAWS =F O48 DRWPNT =F 72D DSCLEN = $8F DSCPTR =$8C 
DECTME =&89D OV 1 =hESAS DYV2 =$hEA4 DYVAR = SES 2S 
DYVARS =PES LS DYARTS =8ESS2 DXH = 1) | DXL. = DC 
DY aT)? EH = $8 DS EL = D4 END =$DR 7 O 
END? = PDE 1 ENDS =$ DAR END4 = DRA ENDCHR =$OF 
_—~ ENDFOR =$DD25 ENDRNG =$D46C4 EQUC = $F ERS ES an fF AD 
EQ4 fF SOR EQUAL. = DOTA EL. =i DE DO EOLOF = DE SR 
ERFLG?Y =$Da462 EFL IM = DEP F ERLIUP =$D41F ERRDIR =$#E 304 


ERRFLG =$D9 
ERRNUM  =@DE 
EVAL. =BECS 
EXIT = DEAD 

EXPSGN =#9C 
FACSGN =842 
FADDT =$E7 CL 
FCOMP si E RRS? 
FDS = PE OAS 
FD] = hE ADS 
FED = BEALE 
FING hE CAE 
FIRST = $F O 
FLOY =fE ROE 
EM 4 = REPRO 
ML hE OQ?T 
ENC? = hE 4d 
FNDELEM =$£ 248 
FNDVSR =$FE489 
FORPNT  =$85 
ae | = EO 7 4 
FRED BESET 
FRETMF =F 404 
FRMEVL 2 =$DDoS 
FQUET =hE 7 AG 
GARFLG =$815 
{sD = PE OFS 
GETADR =#E 7S? 
GETEBYT =#E4Fa 
GETLINE =#D435E 
GETSPC =8E454 
GIG a BE PALEY 
GO4 = DOSS 
GOEND =$DRL SA 
GOGaQ =e 14 
GOROQUT =#DF RF 
GOTFOR =$DDOFr 
GOWARM  =hOo 
GSYNER =$D984 
GTNUM =the 7 4 és 
HANDLERR=&F PES 
HCOLORZ =$E4 
HE IND? =$F SFE 
HIS: mE RED 
HIMEM =F PRS 
HL ING =F EC) 
HLINRL =F Ao 
HOME = $F ORS 
HPL OT = fF GFE 
HPOSN? = $F 442 
IF =tDOCP 
TN a BOP OC} 
INDX a i PS 
TNNU =F 1 DE 
INFORT =¢FE8E 


INPUTERR=$DE7 1 


INSS 


= SESS? 


Oeere aeons Sees eenee 


ERE TR =PO SEO 
ERROR mot: $8 Fe 
YD a6 CRE 
EXP =i FOS 
EXTRAFAC=€4C 

EP OCSTRNG=$E D4 
PAL SE =$ DF ED 
PCOMPS =$ERR4 
D4 =BEAQS 
FOTY = PE BSS 
END =$E SF 7 
FINS = BE CSD 
rLi =®DSLE 
PLO? = BE RAO 
FM2 = SE ORE 
FMULT = PE OSE 
FNCDATA =$E SAF 
FNDFOR =$D24A4 
OFS =$D7 S46 
OUT = PE DAA 
FY =$E BAO 
PREFAIL =$E GOO 
EFRETMS =$F 435 
FRMNUM = $DDS?7 
ae an ii 4h? 4h 
GRASH mn i (OF 

GDRUFS =8DSA9 
GETARY =$E OED 
GETCHR =$D72C 
GETLN =F DSA 
GETSTR =$E4DC 
GIVAYF =f8ESF2 
OZ =PORS 
GORE ah BOS 
GOTO = BE SF 2 
GOSTART =#Daos 
GOTO =$DO SE 
fk nih FOO 
GSTRYTC =$ESFS 
a oo: a 

HLF anh 2 
HCOUNT =$F Sk 
HENS =F ORS 
Minka aif SDS 
HIRES = COS 7 
MLINS BF SOS 
HMASK = i 30) 

Hee az ih FF OF 
HELOTO =$F 457 
HTAR aii Yi? 
IFTRUE =$D9E1 
INCHR = POETS 
INLIN = P$DNSLCC 
INFDONE =#DCCS 
INFPRT =SEDLS 
INFUTFLG=$15 

INS4 = PE S49 


MD 


ERARLIN =#DA4 

ERRPOS =$DC 

EYVDONE =$ECE9 
EX PON az $6 2 

EXTRASY =$92 

FADD =i 7 RE 
aa Oe = SE RES 
POs =F AAO 
PDS =r AR 
EDIVT =BE ASS 
FEVLOOF =#$ppa4 
FINDATA =$DCAO 
on er = $B D4 5 
BLOAT =P ROS 
aa =$E ORS 
PMULTT  =$E9982 
ENCNAM =$8A4 

FNDLIN =#D4S14 
FOR? =BO? 7 7 
PR isk fy a 16 24} 

ris = $F Sap 
FRESFC =$§71 

FRETOP =$4F 

FROUND =$E RSF 
FUNG T $i SE 4 
GRASL a 6 Oh 

GERR =O DOD 
GETARY2 =#EOEF 
GETEXF =$ECES 
GETOLD =$E 3A°9 
GETVAL =$DESO 
ke = DRO 
GOCMD =SDBLR 
(SOF X = DE SR 
GOLINE =€D9 3% 
GOSTROUT=803 

GOTO’? BOSE 4 
SREPAS =$E SSS 
GTFORPNT=$D355 
HALF a $F i 4 
HCOLOR =$F6E9 
HE IND =F ETE 
HENS 1 =F SCD 
HIGHDS =#94 

HISCK = COE 
HL IN4 = th FOE 
HMmi TNTH=$E DOA 
HPS ath FO? OF 
HF OSN = BF 4 T ] 
HTART = $F PEC 
TLLDIFR =$D2F3 
INCRE = $i DOO 
INLIN2 =#DS2E 
INFERR =$DRaS 
INF TR =i 7 F 

INS1i _ = BE SSO 
INSS =BE SAL 


ERRMSG 
RRS TE 
EAITG 
EXPSER 
FAC 
FADDH 
Piss 
FD2 
PDS 
res 
TN 


FINDEOL 


FLASH 
FLOOP 
FM4 
FN? 
FNDARY 


EP NOMEMH T 
FORMt af X 


PRART 


PRMEVL 
PSUR 
GARRAG 
a 

GET 


GETARYPT 


GETTIN 
GETSPFA 
GGERK 
GME 
GOCMD2 
GOGE X 


GONEWST 


GOSUE 
GOTSFA 
GSE 
cs bee 


HAL Pred 
HCOLOR 1 


HE INDI 
Hii IN 
HIGHTR 
HIIN 
Mi INE 
HIND X 
HAS 
HPOSN 1 
HTARR 


TLL QUAN 


INDEX 
INMS& 
INFF IN 
INFUT 
INS? 


=$O2SO 
= i DF 

= 46 DCDF 
aE EEO 
= 1 91) 

aE 7 AO) 
=r REF 
= BE APA 
= BE AD 1 
mh 415 
=$E C44 
=D 41 
=F AO 
=PE SAS 
= thE 9D) 4 
= $ DE 44 
=$E1L SS 
=BF LR I 
=$ORLE 
mp ES? 
= hE SDE 
= hE SED 
= DD? Et 
a BE? A? 
= hE 404 
=BO? Sd 
= DRAG 
=F YDS 
= BOSS 9 
mie 4S 
mF OE & 
= BE PSC 
=PDALA 
= SE MBA 
=O DZ 
at 1 
=$r 449 
= BE SSS 
=PEOL IL 
mii O37 
= $1 C 

mi SEO 


INSRTDIG=$ECCI 


st | 


INSRTLIN=$D4F4 INSTART =$DC2k INSTRNG =$F4R9 INT ak 2 =e MN) 
INTPART =$EDa9 INTVAR? =$FO26 INVERSE =$F277 INVFLG =$32 

TOERF =$EISS TSCNTC = $D8sa ISLETC =$FoO?7D ISTOR? =$DE9O 
JARY = BF OAS JDYO = SE DSF JER = BE TOR JERR =r 4A 
JERROR =@DD78 JF =$ DF CA JGOCMD =$DSE9 JN = DEED 
JMIO =$E D7 a MM BF EOS JMPADRS =$90 JOY = $E AIS 
Joy =BDA4AS JSYN =F RE KEY = Bl OOO LASTOP =$87 

LASTrT =$5-3 Ae oF oe | =F AA 7 OE soe Be =P AY oS oe = BEAT 4 
LEFTSTR =$F£ 46354 LEN = GE SDS LENGTH =€94 JS Us = DAA S 
LET2 =$ DAG S LETREAL =8DA?? LETSTR =6DA7A LE TRT = BF 4G 
LZ = BE OAR LON = DTA LINCOQOR =$F 209 LINGET =$DAOC 
LINE SET =$D4F 2 LINANUM =O LINPRT =F D24 Lio = 6 DOA 
LISTED =$D724 LiSTLOOrP=$D4FE LOAD =$ DSC? Lock = Dd 

LO = hE OA LOGSER =$E918 LOGe = SEEDER LOGtwo = ESRC 
LOMEM =F PAS LORES = $ COTS LOWSCR =$Coh4 L_OHAT Fe a 6 OS 

LR =F AOE LFLID t =F 4 ES LRUD2 aii 4 4 LRUDS a ih F 4 (04 
LRUD4 =F ACS LRUDXT =$F49C LRUDX2 =$F 49) LOSTiLin =$DaFr? 
LSTo? =$ DOF S MAF = PE ROS MAF 2 = SE RSA MAININE =$DRER 
MAINLST =$p4Cc MARKARY =$F1C1 MAK DIGIT=$EDEE MAK INT =$§F 102 
MAR STR = $E DED MAREKEND =$EE SA MATHTBL =$DOR? ME = SE DS? 
MEMERFR =$D410 MEMPOUND=$F 193 MEMSIZ =$75 MFA a i ESS 
MF AL = SE ROY MI =SE 119 MIz = SE LIER MIDSTR =$F 691 
MIN = DE CE MINUS = $ DOC? MISMTCH =$DD76 MIXCLR =$COS2 
MIXSET =$CoOSS ME INT =iBE LOS MOE, =F D2 MONFLOT =$F 800 
MOMREAD =$FEFD MONREAD2=$F FO? MONWATT =$FCAS MORNAM =8F OO? 
MOV IF ack: Soe oa MOV 2F = BE RITE MOVAF = BE RG MOVDWN =$F 545 
MOVESTR =$ESE4 MOVE X = $F O70 MOVEX2 =$F501 MOVE A = BE BSS 
MOVE M == BE A MOVINS =$F D4 MOV IT iF Do 7 MOVMF an BE Bie Et 
MOVIL. = SER MOVSTR =$E SES MSE TRL =$F5R2 MSL UP =$E DCL 
ML a 3 So Mie ah 2 MLES =i 2 DY MUL TO = BE ASD 
MULT = $F 2AD MVEBACK =$rEL9 MVEY T =$D 303 MYDG a= BECP? 
MY DIAN =$O45 7 MYPR(S =$D4D 1 MVS2 = SE SEA MVS = BoP 
MV ZF me |e NAMOK = BDF PR 7 NE = BE O30 NCR =$DP 12 
ND = DDE E NDF = SE C8 NOX = $F SRR NEEDEX? =$EE 24 
NEG = $ DOOD NEG? = ERAS NEGATE =$#DBOO NEGFAC =$E SSE 
NEGMUM = SE OFE ME GOP = SEE DO NEW =$DS49 NEWDESC =$@DAAI 
NEWLN? =8D485 NEWNDX =$F 479 NEWSTT =$D7D2 NEWVAR =$EO9C 
NEXT = DIF NEXTCHR =$DR2oF NI =F OE 4 NIN = SE OSH 
NINT =$E LDS NINTSA = BE LSS NL = DASE NOT =S D440 
NORMAL = $F 273 NOSUCH =&8D447 NOT’? = DESO NOTFND =$f OR? 
NOTFOUND=$E 188 NOTMATH =$DESS NOTOr =$ DS SF NOTRACE =$F24F 
NOT Z == 6 DE OF NOTZE = BE DAF NOTingstre=8DP AA NEM =P 2S 
NTD =$DCD1 NTL = BE SE? NUM LO = $F AIO NUMBER =$DES9 
NUMCMP =$DF RO NUMDIM = $OF MUM IN =$DCS3 NY I =P OE 
NV =$OSS MI = BE ORS NX =$ DOA? NXARY =$E 1 e 
NXEYT =$ D307 NXCHAR =$DR44 NX CHR = DGD NX CLM = $6 D ROE 
NXDIG =$DA4O NXDIGIT =$FC64 NXDIM =$DF DS NX DM = BE 28 I 
NXFOR =$ DOOR NX IN = SDR DC NX INF = DEF 1 NXLIN = D4 
NXLINE =$D4FE NXLST =$DSDA NX NUM = $8 DAOO NXOPF =$DDDS 
NXPAG =D SCE NXFG an thE 2k NXP TR =P OY SS NXS = DC RS 
NXSFT =$E RDC NXSFO = SDRC NXTDIM =$F12C NXTERM =$EF OS 
NX VAR = EOS NXworOR =®D2oO My = DAL NZ a $F OG 
QMODSER =$8EF OC OLDLIN =87 OLDTEXT =879 QONCNT = DOF 
ONE SPSES TS ONERR =F OR QONESTEP =6D/7Cs ONGOTO =$D9ERC 
DOR = BEF 4 OR = DF AF ORMASKE = $F 3 OUTDO = DRC 
OUTOFPRNG=$E AZ QUTPORT =&FE9S QUTOUES =$DRSA OUTSP = SDE 
OVERFLOW=SE8D2 QOVFLOW =&D2AS QHofDATA =SD2RA QoafMEM =$D2AD 


PARCHK =$DERD 
PE CHF =$DC4AC 
FPihalf  =#$F 0646 
PL us =6DOCD 
POINT SEF RD 
POSOF = DF 45 
FRGEND =$A8F 
PRANTIN?G =#@D4%4 
FRSTR =BE D4 
PSHFACX =$DE1S 
FTRGETSA =$DFEAQ 
FPUSHFE AC =$DERO 
FLUTE X =PSEE RS 
PUT STR =$Da7k 
QDRNT =O) 
OUT = DEM 4 
Barry BE POR 
RDKEY = $F DOC 
RECALL =F SRC 
RE MN =POPAS 
RESTART =$D45C 
RET 4 = PDP 
RET? aS DAOE 
RE TS = DRAF 
RETURN =$D994 
RM I = SDF AE 
FNDADI2 =$EF AA 
ROT Z ai > 
RS2 =$DEF 1 
FTN 4 =SEC1 1 
RTNiS = $F OCD 
RTN4 = BE 7 OF 
RTN& = PE QAE 
RTS2 an FP 40) 
SAMEFOR?T=&D37F 
SAavOLo  =#E R78 
SCALE mee 7? 
SCN =F AS 1 
SENDCHR =#D702 
SERMGIN =#EF 74 
SE TDF =SECPS 
SETHI = PE POS 
SETTXT $F RRS 
SGN = PERSO 
SGNIF PE RQLS 
SHOPEH = $818 
SHE TR hE GO? 
SHLOAD =$F 77S 
Sis = GP OAS 
SIGNFLG =®14 
Ske = DSF D 
SKE TS a OF 44 
SL = BE 7 AS 
SNTXERR =$DEOD 
SOR =$E ESD 
Sor =SDSEO 
STEF =$D7 AF 


MD) 


FARTITY? =$E DES 
PEEK = PE 7 S4 
PLOT mB Ss 
PLUSERPS =$F8C4 
FOKE =i? 7 Ee 
PREAD cs 8 a Sl 
PRINT = DADS 
PRIAL =F TES 
PROTRING=$D8CF 
PSHMAD =&DDFD 
PULL. = DOO 
PUTCHR =$DCAF 
PUTIN =SDOSCD 
PUTTOK =$DSCE 
Qi =BE COS 
QUARTER =$FO70 
ADL = SEF COC 
RE SD = DRE 2 
REENT = DOE 
REMSTE =$FR 
RESTORE =¢De84°9 
RE TLo =i DROS 
RETS =BDS48 
RET? =i DOP SA 
REdimARKR=$D2Da8 
RMS = BOP RS 
RIM DE = GRR 2 
RCL = PE DRS 
RSS = $s DSF C 
ReT NM 2 mE CAS 
FRTNIS miBP Too 
Fe TNE: = PBE OSD 
TNS = BEE FT 
TSS sz fh FO) Fe Es 
SAVDIM =$E LE? 
SAaVOr = DDD 
SCALEZ  =$F? 
SCRTCH =#D4S4Ek 
SERIES =§EF 72 
SERPNT =$&D 
SETEND =$#Din? 
SETHPi =$F REA 
SETVPNT =$E ODE 
SGN? == DEAR 
SH i = GE OF D 
SHARPEL =814 
SHEFTRES =$E SDA 
SI aii 7 
SIGN =r Ree 
SIGNIF =#EA2E 
SKIP = $DES4 
SEPYV = fh DDO S 
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SPC? =f DRS 
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STEX = BE DOS 
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PARSE =$ DISC 
PENCHE = $@DC4E 
PLOTFNS =$F1EC 
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Pur =$DOSE 
PREFNC = $DDFS 
FRINTS =#DAD7 
PROGIOQ = €p901 
PRTOK = $7 EO 
PYTRGET =$DFER 
PULLS =$OGOS 
PuUTDr = SE DAG 
PUTLINEK =$D5OF 
Pd = EE AO 
QI2 =$E CLS 
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READERR =$DR7E 
REM = $ DODO 
RESSrAC =$E AES 
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Ret ks = DCDE 
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RMD = EP AE 
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ROUND = BERS 
RTNI =$EORS 
RTNGS = EE DA 
RTN2 =$E LAC 
TNS = SE SD4 
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SAVE = $ DRBRO 
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SCDCH = SE OSD 
we. = D7 8 
SBERLEN =$A3 
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SETFOR =$E Re? 
SETFPTRS =#D445 
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SGNCHE =$E CRC 
SH2 = $F OOS 
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SIGNI =SE RRS 
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SEI TOR =®DSFS 
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FNTSTE =$E ESF 
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PROMPT =$355 
PSHF = $ DE 1 O 
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RTNITO =r RSF 
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SAVEOQRT =$OM 
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SERLOOP =#EF aS 
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SHS = Bi PL 1 
SHEFTIN =$DSE°9 
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SIGN? =r Rak 
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STORE = $F SOF STR =r SOS 
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SURERR =@F194 BURP LG =$14 
SYARGO =$E4ED SYARS = BE AAS 
SPN T = DC 7E SYNCHR =$DECO 
TAR =D ROS TARTT = DRE 
TAN =F OE TANS = BF OST 
TEMP = OR TEMPS = BRA 
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UNDFUNC =$D340 UNDSTAT =#D2 RA 
LIF =F AiR UPS an th A Et 
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VFL. = DE DS VARNAM =$ki 
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MAMAS an i {0 nat = iO ds 
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Symbol table ~- numerical arders: 
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SUEMAN 
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TAPERPNT 


TEMer LT 
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Xie 
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gate 
mbhus 
STE} 
tab 


= DF YD 
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At. 
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STRLT2 
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EVAR 
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PRE TOP 
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=$EDER 
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2 DOO 
=$B7 
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= BOA 
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=$F 1OR 
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= oF 
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INDX a 
DPFLG = SR 
VENT = BAO 
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SGNCPR =A 
STRANGS =#AD 
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dus = (TE 
DXi. = PDO 
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ECT = 17 
ERRANUM =$@DE 
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SCALEZ =$#F7 
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TXTPSY =F 4 
STACK mBOLOO 
TKTCLR =$COE0O 
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DECK = DOO 
TREX =$DOOC 
AD axt$ DOO 
BUMP = OOOO 
CMDTARL =$@DOOo 
EOL = $ DOA 
NXworFOR =$D260 
TLLQUSAN =$D295 


RADSUERS =&8D2CR 
TYPEMTISS=€D303 


UNDFUNCG =$Db2340 
STFORPNT=$D2365 
RET = 6D S92 
MVBYT =$ D203 
REASON =$D3E3 
RET 2 = DAOF 
ot On = D4 1 F 
ML = DASE 
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= DOE 
=$DGO4 
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= BOSS 
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TXPSYV = 37 
TEMPS = BAA 
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HIGHDS =#94 
TMPEXF =$£99 
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DXH = 6D] 
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EREFLG =$Do 
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HOOLORZ =$b4 
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TRAX = $OOOL 
ADD = DOOD 
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SYNTXERR=$D270 
OVFLOW =$D245 
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STRtOLNG=$D310 
EPR TM = DSO 
FNDFOR =$DE4A 
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NXEYT =$OD 307 
Roi =f DED 
MEMERR =$#D410 
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MY DAN =$DO44 7 
LINKSET =#D4F2 
INLIN = SOSA 
NOT = POAC 
NX CHR = $ DED 
MY a6 DEAS 
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DONE = BOS 10 
GETLINE =#DS3E 
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STEINI =#D483 
STRTRNG =#DSR1 
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EXTRASY =$92 
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DSCTMF =#£9D 
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EXTRAFAC=$4C 
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TRTIPTR =$89 
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SHAFPEPNT=$F8 
TROFLG =$F2 
REMSTE = $FR 
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MIXSET =$COEnS 
HIRES =$COS 7 
TR = $OOOC) 
TRAY =$DOOO 
=f = $B DOO 
Pu =BHOOD 
MATHTEL =$@DoOR? 
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QofMEM =$D2AD 
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INMSG& =$ OSES 
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BL TU = iO APS 
NXFAG =$D SCE 
Riz = DAR d 
ERROR =$O4 1 2 
RESTART =$#D4 30 
NEWLN? =$D4 RE: 
NXLINK =$D4FE 
INLINS =$DS2E 
INCH = $6 DES 
SE =SBDOE7E 
hx = DRA? 
SSF = SDE O 
SKIFTOR =$DSrF9 
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VYARPNT  =$iS 
CRRTYP =$#89 
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TEMP 1 = oS 
TEMPZ = OR 
LOW TR a EX 
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SERLEN =A 
gota i AYE 
SBERPNT =#4D 
CHRGET = $R4 
meant am i RAY 
Spc = (13 
step = C7 
equal = i DO 
DY a= Di 
LOCK oh DS 
ERRPOS = $8DC 
XOH =i E | 
HE AGS on BE bs 
COL COUN T = $ EA 
QORMASE =$FS 
ROT Z ath eo 
ne Y =BCOOOO 
LOWSCR =$8COn4 
INCR ah DOO 
TRDE ath DOO 
TRKY = Hh DOO 
SLE ah DOL) 
NEG = C0909 
MINUS mh DOC 7 
ERRMSG =#D2460 
QOofDATA =#D2RA 
UNDSTAT =$D2R4 
ILL DIR =$D2FS 
CANTCON =#D332 
RREGK IN =@D 35D 
NXE OR = DOSER 
SETEND =#DAR7 
CHEMEM =$D2D4 
RSS =f DSF C 
DOERRMSG=#D419 
NXLIN = D4 ES 
MYVPRG = $i DAD 1 
PUTLINE = DSOF 
GDBUFS =$DEA°9 
GETIN =i DSSS 
TOK? =$DO SSE 
LIN = DSA 
REM? =$DO SE 2 
SK2 =m DSF D 
Fld mBOSLE 
RE TS = $DS42 
CLE AF =H DSSA 
STXTFT =#D497 
MAINLST =#D4CC 
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SENDCHR =$D7O2 
BC = BOF 21 
PRT OE = DP SO 
ORS =$ DP PF 
DIRCT =$D7ES 
GOCMD =$DB828 
Joy =$DR44 
TSCNTC =$De8a5a 
STOP = DASE 
END4 = $ DSA 
RE TS = 6 DAF 
YARTIO =$DAFO 
GOSUE = SD 1 
GO2 = DOR 
GSYNER =$D°9R) 
RETS = DEAS 
PP =$OORS 
PEM = $8 DDC 
GOTO’? = BOOP 4 
LINGET =8DAOC 
Leta = BDAC 
DESC? =$ DAC 
PROTRING=$DACKr 
NEGATE =$DBOO 
TARBWHERE=$DRIG 
NEXTCHR =$DR2F 
NXCHAR =$DR44 
SEND = $ DROS4 
INPERR =$DRERS 
INPUT = $ DRE? 
READ == #6 DEE 22 
SNDQ'? =$ DC IF 
PENCHR =$DC48 
DATIN =$DCS&9 
FINDATA =$DCAO 
RETIL =$DCDE 
VARNXT =$DCrF 
GONEWST =$DDAI2 
CHESTR =$DDSC 
MISMTCH =$DD76 
FRMEVL 2 =$DDOR 
PREP TEST=$DDCD 
MD = 6 DDEE 
PSHE = Db 10 
Ok X = DE SE 
ERI. == DED 
VAR? = DE OC 
oO =$ DER 
PORCHE = $DERE 
SYNCHER =$8DECO 
VARL = DE DS 
UNARY =$DF OC 
AND = {6 DF IIS 
STRCMP =$DF 7D 
DOCMP = DF ECS 
NXDIM =$DF DS 
PTRGETS =$DFEA 


NRE = BOF 12 
TOKEN? =$D734 
TORLUP =$@D7 35 
STEP =$D 7 AF 
TRACE? =$DaOF 
SOCMDS = $8Da24 
RESTORE =$Dba49 
(3 =SDGGO 
EMD = SDA? O 
GOSTART =#DaSs 
SAVE = DSRO 
PROGIO =$#09O) 
GOLINE =#Db9o35 
RET / = BDO SA 
RETURN =$D9R4 
DATAN =BOI AT 
PUL =PDOHSCS 
TRTRUE =#D°E1 
ONCN T az DOS Fe it 
ASCHEX =$DAL2 
LETREGL =$DA77 
COPSTR =$DASA 
PRINT = DADE 
RE TL o = FD RO? 
sec? =i DRS 1 
DOSFC =O RSS 
OUT Sr =i DRE 7 
INFUTERR=$DR7 i 
RESFERR =@DRR7 
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Lr = DRE S 
ST KP =$ DCL? 
me CHR =f OT AC 
RIN X = BDC 7 2 
NXS =i DCRS 
EXIG = $6 DC DE 
SERY = DDG 
ENDFOR =$DDE5 
RPHEVAL  =$DDSD 
JERROR =$DD78 
Cornu =O DOR 
MX OF =$DDDS 
PREPAID =$DDFS 
PSHFACKXK =$DE1S 
DOMTH == DE A 
GETYVAL =$DE SO 
STRTXT  =#DEGI 
NOT 2 = DE OF 
GCHECLS =$DERE 
SYNERF =$DEC9 
WE = ih DEES 
NOTinstre=$DF SA 
FALSE == fi DF ED 
SES = BDF AT 
CMPDONE =#DFCI 
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GE RR 
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Pd 
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= SDRSA 
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= § DRE R 
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= DOCS 
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= DF OF 
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UNDERR 
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BNT XERR 
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= DRLS 
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=$DRSC 
= DERE 
= DRA I 
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=$DOEC 
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= DAR? 
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GSE 
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ZEND 
PUTNEY 
GETSPC 
GARRAG 
SVAR 
ARY VALS 
DYVARS 
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PRE TMP 
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MIDSTR 
GETSTR 
GETEYT 
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SHF TRES 
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an BE Oe 
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= PE 149 
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= SE LAA 
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=$E DAD 
=$E2DE 
=$ERO4 
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=$ERE7 
=$E4og 
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=$E4A54 
=$E4Q4 
=$E4RS 
=$E4CE 
=$ES19 
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=$ESR7 
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=$E7EE 
=$EQ2E 
=$E AI? 
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=tE AS 
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SCOCH = $E OSD 
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TSLETC =$FO7D 
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GETARY =$EOED 
MARINT =$§F1O2 
a = SE LIE 
ARYLOOF =F 14D 
TQERR =$E 199 
NOTFOUND=$E 1 RR 
SAYDIM = $F LE? 
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GME, =$E24C 
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ERRDIR =$F 306 
PUNO T =F So4 
OTR =H SOS 
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NZ = SE 409 
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PNDVAR =F 488 
SYARGO =$F48D 
ARYVYGO = $F 4D9 
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YDOONE =i SoD 
MOVING =$F2D4 
MYES = BE SR 
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INS4 = BE OOS 
INSS =PE SAL 
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POINT = SE 7 SD 
PEEK = Bi? &4 
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ew os =$E GA 
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FROUND = Rar 
PLUSEPS =$F C4 
NXSFT = BE SDC 
SHF TR = iE OO? 
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LOG = EO 4 1 
PMULTT =$F 982 
PMS = $F OR 
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Nia? 
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ss Oe ae 
121.842% 
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124.1481 
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oie L2OXk 
125.1025 
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123.1016 
125.1026 
1216 499% 
121.1101 
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hake Ok 
£2441 562 
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124.131 
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121.4356 
125.630 
$242 202* 
(22.421 
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123.746 
Rs ae ey 6 8 
Leageir? 
125.637 
oo a 


125. 1085 
Lede 7k 
123. 168% 
123.169 
123.167 
121.548 
124.636 
121.63% 
124,428 
124.478 
124, 759 
121.160% 
i24,.811 
I21.782 
123.60 
vi mal K 
Lae e 
121.725 
121.232 
124, 120% 
230 1092 
123.1095 
123.1102 
121.1034 
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Lac. 95x 
122.258 
rere. F 
12301272 


Leia FEO 
121.148 3% 
tebe Vor 
123.1013 
Pees & 1: ft 
»1O28 
not LOE 
Zoe LOOS 
125.1018 
123.1027 
124.971 
T21.1103% 
ee OAK 
121.504 
i2Z1l.1é685 
124.217 
124. 134% 
124. 2462% 
121.714 
123.632 
124, 220 
en FOR 
Lees. > 
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123. 499% 
122.182% 
123. G42% 
Lees i: me 


ak’ se Bet 


123.0135 
Leoe 78 
1235,.171% 
woe LID 
124,268 
124, 755 
124,270 
124.628 
124.678 
124.758 
124. 747 


121./89 
moe L 7S 
123. 244 
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tei. 78S" 
124. 78Ox 
124, 126 
Zo. L097 
eo. LOSE 
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123.670 


serge bale 
os f oars 
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121.1643 
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Leos PK 


Lee, BLS 
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he! at shine Sued 
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123,098 


124.276 
124.764 
124,272 
124,429 
124.479 
124, 759 
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de tet d 
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123.1127 
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123.1013 
ge 
Lee 1033 
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ss re a 


123.61 
123.694 


124,277 
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124.435 
124.747 
124.762 
124.763 


123.499 


123.1037 


123.1014 
125.1024 


121.1183 


123.282 
12%, 998 


124, 584 


124,603 
124,633 
124,747 
124,763 
124,809 


12 a) wee 


ff ~ 


SIGNI 
SIGN? 
SIGNFLG 
SIGN TF 
SIN 
SINSER 
a 
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SE TP TOR 
SEP 

SEP TE 
SPY 
SLd 

BL 2 

hak 
SNDOQ’? 
SNGE LT 


SNTXERR 
SrePC? 
SPEED 
SPEED Z 
SOR 
SORA al 
SORT we 
35 

SSF 

ST 1 
STack 


STE 
Sl 
STE X 
STEIN 
STOF 
STORE 
STR 

SP ROMP 
5S TPREND 


SPRINT 
STRIF 
STRLIT 
SPRL TA 
STRAG 1 


= SERS 
= bE RE 
=$14 

ak) en 

=$E FF I 
=P OS Ss 
a $6 DF D 
= $6 DE S4 
= DFS 
== DCS 7 
=D 744 
= 6 DDO 
= BF FOS 
=F 7 Ai) 
a BF 
=F SAF 
=$DCLF 
=F SO 1 


= DE OD 
=$DR2 1 
= BF Oo? 
=F | 

= 6 EE RD 
=$EF2D 
== Bf Se 
=$EF AS 
= DEO 
== DE SA 
=O 1 OC 


= BE DSO 
=D 7 AF 
a i Dis 
=$DSR 3 
= DRGE 
=F OF 
= $F 30S 
= DF YD 
=  & D 


aii DS 
=$ D4 I 
=r SE? 
=F SED 
a ER 


sseey se2es seeee sseee sezzz F* 63 Ch ve | 


» LO44 
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Leo. AGS 
121.62 
pail 
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23.1104 
121. 792% 
Lees L4ONX 
hehe e 
121.1590 
121.967 
121.1660 
124.798 
124,803 
124,804 
124.252 
121.1356 
122,176 
re BP 
Leese os ae) 
ei. 44) 
121.247 
Leiw st Os 
121.278 
eon BAK 
woe LEAOR 
at. 1o2 
121.774 
eee il &l 
121.1748 
i21.472 
121.1696 
l2aelo7 
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oe BE 
123,893 
125.759 
121.1021 
125.793 
121.570 
121.257 
121.244 
121.289 
i2e. 285 
121.89 
121.861 
L2cse sete 4 
Lee. (BO 
122.991 
124.802 
121.1383 
121.692% 
121.1421 
121.1592 
121.1 34% 
122.900 


i Loe wa? 


me aes eas cs 
Cite ei 


2a LDOVS 
123. 77% 
ae LOS TR 
123.1108 
Leh sy FF 


jeee LS 
121.762 
121,1592% 
121.971 
121.1662% 
124, 800% 
124, 800% 
124,806 
124, 254% 
121.,1564% 


my ny er oy 
whoo ake 22 aes * tee 


122. 1304 
Lee. Pk 
121.,1443% 
124,102 
121.1486 
125.91 3% 
: a Pa G i 


ae hes 


123. 205 


125.1023 
121.777*% 
122.163% 
121.440 
121.1680 
121.1698 
122.54) 
123.848 
fe BRO 
123.894 
123. 764% 
Lease kee 
Loe ev be 
121,.864% 
121.1118% 
124. BRIE 
122.878 
LLeeas nee 3 
121.482 
121,862 
122. 654 
fin BS 


Leee we 


< na EES K 
121.696 
121.1457 
122.899% 
121.1386 
Lee. FOR 


ae af ON oe 


os 


id f tt td i 


jonk ow 
BJ BD PI PQ 


21.764 


pa ees = 4 
122.1369 


123.203 


1 arate ao 2S 


121.465 
jesa cero 
Lee. 444 
eon PAE 
123.858 
123,888 


121. 1026% 


i271.493 
127.454 


my mest acts? 
eae 8 fae 


en FOS 
Aeew LOTS 


tO ate a 


REG0e Benne Gases abeee epeee 
S0ete aeons ones eneee cence 


123.1110 
aes at 1O48 
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124.107 


121.46? 
121.1692 
LZ ase St 
123.9803 
123,874 
123,890 


121.650 
een Fh 
122.668 
Lees PHS 
124.130 


i2e. BES 
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121.449 
izil. 14694 
pac teed "oan BF 

» BOR 
23.876 
123.892 


121.6590 
12 Lk pe ee 

Fave ae 
122.991 
124, 130 


L22.896% 


122.899 


my ery ny 
a a 


MD 


SPRANGS 


STRANG? 
PROUT 


STRERT 
SoPROoFA 
SPRTRNG 
STR TXT 


SrRtoLNG 


STXF 
STXTPT 
SUR 
SUBERR 
SUBFLG 


SU RMAN 
SYVAR 
S¥YARGO 
S¥VARS 
SVP 
avy 
SWEAT 
SYNCH 


SYNERR 


SYNTXERR 


TAR 
TARIT 
TARY 


TABWHE RE 


TAN 
TAN 
TAPERPNT 
TEMP 1 


TEMPS 
TEMPS 
TEMPPT 
TEMPST 
TEND 
TEXT 
FRPEXP 


TOK? 


TOR DONE = 


= $A) 


=$ROVO 
= 6 DEA 


= $ DRED 
=$E3DD 
=$DSE1 
=$DES t 
=$ DS 10 
=$DC2 

=$De97 
= 8 DOO) 
=BE194 
=$14 


= SE ROS 
= $E 4S 
= BEARD 
= EAS 
= ORB 
= $E DRE 
= $ DO 7E 
=$ DE CO 


= SDE CP 


= 6 OPO 
=$ DROS 
=i DE Rt 
=F RE 
=SDERIS 
= $F OSA 
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=F YRC 


iz Lan a 


iee. 1i34 


124A5 3 swt 


122.639 
Lee. 682 
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l22.1318 
123. BOO 
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ontckgea den 


- io 7 
12 24. 1408 
Moan SR POE 
121.884 
Be Ge ba a 
iti. 442* 
pe ae en” 
121.8356 
121.1149 
Lk Li fl Oe 
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tee. 40) 
122.808 


Zon 65 


Lee. LOOAK 


I22. 1008 
Lene res 
122,484 
123.805 
121.1404 
21.1014 
122.813 
124.190 
121.1093 
ea # i he as 
izi # 4 OK 
i2i.1414 
121.1444 
121. 200% 
121.1408 
121.284 
re re ae ee | 
124,237 
121.118% 
we LOOS 
I21.119% 
121.120% 
eoeellee 


121.80% 
4 Beh ae ne 
i21.82% 
123.855 
i21.21% 
2il.Il2ik 
123.776 
2i./728 
Lada fx 
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122. 759 
eee lols 
125.809 
122. 5/8 


eile LAX 


123.1278 


121,1458% 


122.1219 
121.885 
eee LOBE 
122.1125 


i21.1S67% 


121.879% 


Lee. FS 
121.876 
122. 405 
122.828 
eon OF K 
122.1009 


Lee. LOORK 
122.1001 % 


i222. 486% 
123,.809% 
121.1406 
121.1281 
122.826 
124,499 
12481 2S6 
122, 198% 
are 
i2 1.142 


poyyereé 


m4_ LOO 
124.1411 


123. 1iOoRXx 
123.1126% 


124, 250 
121.535 
1235, 19009 
Ion ASO 


123.923 


121.862 
1224 S96 
121.864 
123.9711% 
124. 219% 
123.611 
Leoes 7 2 
121.731% 
121.978 


122.1119 
te2.114) 
121.766 
122.657 
Loe. 702 
122.769 


oy ety ¢ i i 

ie a ae Ne 
“ 

rats 8 37 i 


121.1508 


121.1526 


eee 


121.9887 


122. 697 
ce i se 
122.518 
124,829 


121.14608% 


121.1344 
124.42 

124. 729 
121.1442 


wn} wo Ee? 
i cere hase $8 eee “raed Wf 


121.1438 


124.B819% 
121.538 
123.1115 


yd ee Be Be 
122.1200 
122.932 


123.659 
123. 784 


eee nF 
122.1144 
122.605 
fee OLS 
122.793 
Sew Tas 
122.1339 


eon BAD 


i241.14549 


121.89O0% 


lak. SAS 
Lees ORS 
124.832 


sore ae je Pa 
124, 40 

124.749 
121.1500 
Lees Sou 
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Lese, OF 
eon Leas 
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eon PRL 
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la i FES 


Lace 322 
122.1147 
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Lee. 644 
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Leen Fer 
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re Te ow ort 
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lZads O97 
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122.193*% 
124.1352 


Le. FS 
124.182 


123.1112 


122.931 


122.993 


123.764 
123,844 


MD 
MD 
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TOELEF =BO PAS 
TORLUF =€D75S5 
TOR TABL =#DoODo 
TR = $B DOOC 
TRY =D 2D 
TRACE ath OD 
TRACE TY =$DeHOS 
TRAX a2 DCO) 
TRAY = DOO 
TROFLG =$8F2 

TRDE 22 DOO 
TRUE = DF 4 
TRUE? =$D9DS 
TRX = $6 DOCe) 
TREY = DOOM 
TY¥YAR om #6 Fr 4h 0) 
THWORRE =$@F OSS 
TXFSYV =H? 

TXTCLR =$CORO 
TXTPSY =$F4 

TXTPTR =$8e 

TXTTAR =#457 

TYPEMISS=#D303 
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121.959% 
121.974 
121,319% 
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12261085 
i@t4.148 
124, 134 
124.4270 
124,176 
124,747 
12161065 
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121,652 
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122.455 
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L2.¢ aos 
216i iso 
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Lee tS 
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pee L268 
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shes teas? 
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121.736 
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123.401 
124.148 
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121.1068 
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121.649 
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oe") i 
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121.1064 
123.401 
124,158 
124.177 
122.278 
121.1282 
124.193 
122.889 
Lee oF 
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121.1351 
124, 264 
124,153 
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121.803 
121.1009 
121.1037 
Lele ee 
121.1195 
21.1242 
121.1262 
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121.1609 
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122.854 
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124.170 
121.657 
121.847 
121.1098 
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x 
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121.738 
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124.153 
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122.1082 
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123.402 
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121.1551 
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121.808 
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Leite oo? 
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124.149 
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L2iweo af 
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121.1609 


124,170 
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121.860 
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121.1408 
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122.78 
122.814 
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123.1184 
124.177 
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121.852 
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123.1267 
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oe Oe Ge Ff 
123.402 
124.156 
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121.8359 
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121.881 

121.1050 
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tg ids 
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“ 
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LISk 

Va 

VAL. 
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VAR? 
YARL 
VARNAM 
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YAR TIO 
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VL 
VLE N 
VLINE 
VPNT 
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TAR 


WATT 
WHET X 
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= $6 DAO 
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122, 184 
l2ie i Zis 
L222. BOY x 
121.4425K 
121.426 
121.270% 
124, 400% 
124, 407 
124, 405 
124,410 
124,403 
124,415 
124, 399% 
124, 423% 
6 Pan) 
l2ls7ik 
121.289 
121.56*% 
121.1601 
122.209 
Zesool 
122.548 
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122.415 


mm een 
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122.848 
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121.,198% 
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124.47 
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121.1345 
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122. 774 
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rer er ee PE 
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122.8135 
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121.650 
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122.407 
124.148 
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121.1154 
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122.1318% 
lee. LALAk 


124.81 % 
124.87 
121.1356 
Lelwiss 7 
122.208 
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Lea Ie’ 
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ee 
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1 gs F re 
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a ee Ot 
122.427 
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121,593 
121.613 
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Lehke lk il /& 
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124.148 
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i21.1145% 
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1.1380 
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iz 
legen als 
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se | 
whee 


C0088 Sener e8REe eneee oLeee 


123.1217 


121.1418 
Lee. 7 


Lee el? 


13> ee 


122,947 


122. 445 
Lee Ril dB 
122.473 
Le eigiae pet = 
eeu lel 


Lees 7 3O 
122.84) 
hoden BHO 


121.602 
121.418 
121.662 
121.860 
121.1374 
eee LOOS 
124,185 
124.212 
124,833 


I21,.12365 
121.1381 
Lee. 220 


ZO% 21k 


121.1570 
122.144 
122. 20 
Lee. 48 
122.1295 


Lede OFS 
122 atin, 38 Seo 
1h ede nits 4} 


oP 
LzZes Fee 


lee. B46 
ewe 3 


1. sie 
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1.1156 
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4,144 
4, 
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La iss 


WN DUP 
WN X 
WRITE 


“™’ WT2 


a 


a 
XO} 


x OL 


XI 
Xe 
XS 
XDRAW 
XDRAWO 
XDRAWT 
XDRAW2 
X DRAWS 
XDRAW4 
X DRAWS 
¥O 


LARRY 
ZEND 
ZERO 
ZEROFAC 
ar 

ZF AC 
ZL 
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Crass referenced symbol table - 


> a * 


at. 
data 
equi d 
Tr 
€or 
qoasiuh 
gate 
leftstr 
MAMAS 
rat 
piu 
fa CoP 
meat 
YET 
SCY 
Scr 
Sc 
Shen 
tab 
then 


£o 


\ GOWARM 


GOS TROUT 


=$E EI? 
= 6 OE 7 
=F ECD 
= hE POS 
a BE SP? 
=F 4 


ak: mo 


= SEF LY 
= EP? 
=hEF A? 
=P oF 
=F GD 
=$F OS] 
=F OES 
=$F OBC 
= BF OOS 
=BF OA4 
a Bi Fe 


=iB LA 
= $409 


ai DRE 
=$EC4O 
ea 
=F TOR 
an i CS 
Sas 
22 90> 
= th oe 
= ih ft} 
= BRO 
= AE 
= BE 3 
as i (OS? 
=O 
= CE 
= $Y 1 
= ih RAY 
a i 2 
az ih 1? 
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oT O 
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a fh) 


ar bata 
shen Sen f oda 


121.1595 
121.189% 


eee LOO] 


lee. LAA 


121. 154% 


124,572 


121.153% 
124,478 
1234.96? 
Lee FS 
123. 9°84" 
121.227 
124, &35% 
124.637% 
124, 426% 
124,661 % 
124,465 
124.469 
121,.155% 
124, 424 
Lee. GAO 
122.906 
123.293 
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pe ree OB 
1271.508% 
tide Masa La! 
121.494 
1Zisveore 
121.481 
pe hee Da | 
21.7 X 
121,543 
ep Bee 68. 
telawee 
122.699 
lgivalrv 
122.199 


len. 1126 


lake? 
21.3854 
pe Ee 
121.576 
PP eds 
12 lew 
121.620 
izZivé23 
igilaw7S 
121.445 
121.652% 
ras ppead 
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121.1622 
Leecrare 
eon L447 
121.557 
121.1233 
Lace a 
Lee raj =p 
123.399 
ae fe de 4 
ap Oe a pF ©, 
soa ame Be aa 
122. P34 
121.1159 
122.801 
open 


IDL. ALE 
121.994 
ai. 472 
121,.449% 
121,474 
12444735 
121.648 
122.1104 
121,304 
as See S| 
121.907 
t21,.514% 
121.1003 
Oe a he a 
121.534% 
121,540 
121.544 
Leiw ooo 
121.526 
1224.. 132 
121.5358% 
Lege 7 
i23.148 
121.862% 
bia Oo? 
y ae me Re Sar" 
121.07 7*% 
teow Leo. 
Lzieoroe 
Leis 62a% 
121.4628 
121.636% 


121.647 
171.6355 
1 1.654% 


i21.6R0 
121.464% 
121.667 
121.1532 
121.682% 
121.488% 


121.572 
ttn fee 
121.1133 
Lei boar 


121.479 
122.4635 


121.510% 


121.1194 


L222. O02 


121.551 
ie rs st 0 a 
124.249 
121.1142 
122.599 


12 ofa Re F} 4 


121.3587 


[eo a Pd 


121.1163 


i21.,1539 


eetee Senee opens enete eosee 


i21.1664 


121.517 


oe eooge 08, 
ao 30 


3 eee” Mee’ 


122.653 


121, Sone 
121,554 
124,808 
121,1234 


ar ae BC a 


121.635 


124,213 


121.1136 


as 


PUT TOR, 
PUTIN 


Sor 
REM’? 
BHF TIN 
SHIN 


Sk IP TOR 


i 
rity? 
DONE 
PNDLIN 
Be 
ring 


GETL INE 


NOSUCH 
RETS 


MEW 
SCR TCH 


SETPTRS 


CLEAR 
CLEARC 
STEIN 
Pie T 4 
STXTRT 
LIST 


STRTRNG 


ENDRNG 


MAIN LST 


NXLST 
Lp 


LSTILIN 
LISTLOOP 
ak NOCH 


NCR 
kis + ead 
SE TCHR 
GC 
TOKEN 
SEP TE 
TOR LEP 


. PRTOK 


TOR LILI 


TOR DONE 


=$DS4 1 
= 6 DEC 
= $ DES 
mn TERE 
= DESC 
== 46 DES D 
=$ DS 7S 
= DEE 
= $ DESC 
= DEG 
= $ DE 7 
=$ DEAS 
= DEE 
= DED 


== DEO 
= SE 2 
= DES 
= 6 DIF 2 
= DSP 9 
=i DS D 
=$D504 
=$DS1TO 
=$OS1A 
= DS LE 
= DOSS 
= $ DG SE 
=$DO4 7 
=$DS4R 


=BOSAS 
= DOSE 
=SDSS5 
= $DSSA 
= DGSO 
=$DSAS 
=$DS9S 
=$ DOS 7 
= DSA 
=$DOE 1 
=$DSC4 
=$DSCC 
= $ DOS DA 
= 6 DSP 
=$ DSF 7 
=i DOPE 
= BDF Oe 
=BD 7 12 
= 6D 7 24 
= D7 2 
=D 31 
=D 7 34 
=D 746 
am D7 449 
D7 
an 17 é ie 
= D7 SF 


121.692* 
121.691 

121. 7028% 
121.591 

121.711 

i21./718% 
21.720 
121.728 
21.732 
t21. 7428 
21.746 
Led. 7/49X 
121.7359 
121.726 
121.785 
121.774 
121.776 
121. 782*k 
Ee EOE BP a 
121.7356 
121./792% 
121.794 
121.771 

121.597 
121,.814% 
l21. 824 
121.826 
121.818 
121.825 
eke 97 
121.269 
121.842 
121.4654 
Lea wes 
121,.859% 
121.5070 
121.828 
121,856 

121.266 
121.884 
121.8935 
121.893 
1214703 
lets FaO 
bode Te 
21.927 
a FAVE 


o> 
oe 
Qi xk 
9S 
938 


sa oe a Fs 


i 

i2l 
121 
121. 
a oP 
121i 
aa 
i2i 


» PE? XK 
121.969% 
121.968 
121.974 
Leiarvi 


mF ae 


121.496 
121. 497% 
121.1111 
121.095 
121.717% 
121. /BO 
pile thee 
121.731% 
i2i. 73 med 
Lai. 74 
l21. 748% 
gs EP 
121. 766% 
121,730 


121.777% 
121.778 
121.789 
121. 786% 
Lels/&2 
121.797 
L2l. 79h 
121,802 % 
i21.812% 

21.837 
121, iit 7k 
LZ 21.8: eee 
121, 838% 
121.830 


121.841 
123.1272 
121.714 
121.8588 
121.1184 
121.864 
121.877% 
121.879% 
121,884% 
121.885 
121.898% 
121. 9O1X 
124. 909% 
121. 9723% 
121. 924% 
121.980 
121.957 
121.9736 
lele feo 
Lae FOO 
121.954 
121,957% 
ee | 
eae e708 
121.972% 
121.977 
121.978% 
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121. 706% 
Lakes ow 


1 Oe ee Ln 


121.801 


121.734 121. 767% 


121.764 121. 79O%R 


124.187 


121.831 121.8239% 


i21.825*k leks eae 
124.149 


121.889 121.900 


121.897 121. 890% 


121.946 


121.947 
121.974 


121.783 


124.195 


121,841 


21,1183 


OR 
PORTS 
STEP 


. ONESTEP 


NEWS TT 


DIRCT 
TRACE? 
TRI 
GOEND 
GOCMD 
GOCMD2 
NOTOR 
COLON? 
Jay 


RESTORE 


SETDA 
RETS 
ISCNTC 
os 
ERFLG? 
CTRC? 
37 OF 
END 
END 
ENDS 
END4 


GOSTART 


— CONT 
CON 
RETS 
SAVE 
LOAD 
JLNE 
VARTIO 
PROGIO 
RUIN 


RUNL TNE 


GOSUE 
GOL INE 
GOTO 
Od 
GO2 
RET? 

a Sd 
UNDER 
GOYNER 
RE TURN 
DATA 
ADDON 
FRETS 
DATAN 
RE MN 
RM I 
RM 
PULLS 
kD 


=$D7 S56 
= BOP 7 7 
= $ D7 APF 
=$D7(3 
=$D7 D2 


=$D7E5 
=i DROS 
=@D81D 
=$DQ24 
=$D87q 
=$DA2A 
=$DQ3F 
=$DQ42 
=$DB44 
=$D849 
=$DQ% 
=$DQ57 
=$D85@ 
=$DAGO 
=$D863 
=$DA6C 
=$D84E 
=$DA70 
=$DQ7 1 
=$DB88 
=$DA8A 
=$DIPS 
=$DAPS 
=$DB0 1 
=$DQAF 
=$DRRO 
=$Dacg 
=$D8ED 
=$D8FO 
=$D9O1 
=$D912 
=$D9 15 
=$D92 1 
a HS 
=$D9RE 
=$ DOSS 
=$D9S9 
=SDPSA 
=$D94R 
=€D97C 
=$D9@ 1 
=$D984 
=$D99S 
=$DSOUS 
=$D9AD 
=$DPAR 
=$DIAS 
=$D9AE 
=$D9RS 
=€D9C5 
=€D9C9 


as sans spe ge eee Fo 


121.207 
ttia teu 
121.1021 
121.1031 
121.7139 
121.1700 
121.1944 
121.092 
121.1065 
121.3055 
121.1076 
121.1081 % 
121.1082 
121.1051 
i221, 1084 
121,252 
L2eiu TiO} 
121. 1080 
Be Oe a as 
A242 2b 0F 
121,111 2% 
i2i.,iii4 
Lek eas 
121.206 
IZ1.1113 
12i.,1i2é 
Lease ae YT 
121.1134 
121.265 
121.2141 
ae Oe ee | 
121.261 
121.269 
121.1161 
421.1150 
5 ae ee Se So 
121.290 
+Giw eee 
121.254 
I2i.1185 
121.249 
121.1207 
Stk aoe 
I21.1222 
Lake 
12iv leis 
121.,.1236% 
121.1230 
Ob Prats 8 a 4 
121.1247 
121. 1250% 
21,1004 
i2i. 1204 
121.,1258% 
121.1262% 
121.1241 
RA Be eo | 


121.991% 
121, 1000% 
I21.1022 
21. LOS4RX 
121.949 
124,174 
121. 1049% 
L2l.,1964*% 
121.1968 
121,1079% 
121, 1080% 
121.1501 
121.19092% 


121,10923% 
121.19095% 
121.863 


121.1103% 
121.1105% 
121.1041 

12i.ii111% 
121.1536 

121i.1116% 
I2Z1.111isx 
{21.1120% 


I21.1121% 
121.11 30% 
ek ae Be i x 


121.11 236% 
121.1138% 
121,114 2% 
i21.1138 
121.1149% 
121.1154% 
121.1163% 
121.1154 
121.1158 
121.1179% 
121,1184% 
121.1193% 
121.,.1199% 
121.1200 


i21,1215% 

t2i.,.i214 

21.1224 
—~ > es eit? 


fowte fewh foweln owt fouale fenesle fermts fouste fraste foute fade 
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121.19026% 


121,.1939% 
124, 180 


121.1094 


121.1073% 


rae era BF 1 8 


121.1097% 
121.1643 


121.1107 


121.1147 


e2il.lilG&x 
121.11 75% 


121,.1203% 


121.121 7% 


122.817 
121.1635 
121.1265 
12 8 } OF da ap | 
121.1284 


SEES BOSSE epRte eeene coeee 
ePOee E8ene Sb00 debEe eoene 


121.1077 121.1203 


124,833 


121.1289 124.173 


124.128 


121.1618 
124.157 


MN 


TRUE? = $OSDS 
REM =$ DS DC 
TFTRUE =$D9E1 
JGOCMD =6DGE9 
QONGOTO =$DSEC 
GOTO’? a DOF 4 
ONCNT =$ DSF S 
NM XIMLIM = 6 DAE 
RET = DAOR 
LINGET = $DAoC 
ASCHEX =6DAL2 
NADIG = $DAAO 
ber =$DAAS 
eT 2 =$DAGS 
LETREAL =$DA?? 
LETSTR =$DA7A 
PUTSTR = $DA7R 
DESC? =$SDARC 
CORPSTR =8DAI4S 
NEWDESC =$DAAI 
CORY = 6 DAR 
PROTTRING=$DACF 
PRINT = 6 DADS 
PRINTS =$DAD? 
ORDO = 6 DAR ER 
NEGATE =$DROO 
RE TIO = $ DRO? 
TAE = $§ DROS 
NXCLM = DROE 
TABWHERE=$DR14 
SPC? =$DR2 I 
TARTT = DRE 
MXSPC =$DR LC 
NEXTCHR =$DREF 
DOSPC =$DR AS 
SPROUT =$DRAA 
SPRPRT =$DE3D 
NXCHAR =$DR44 
OUTSP = DRI? 
QUTQUES =$DESA 
OUTDO = 6 DRC 
SEND = $8 DR 4 
INPUTERR=$DE? 1 
READERR =$DR/R 
EARL IN =$ DRE 
INPERR =#DEaS 
RESPERR =$DRR? 
DOREENT =$DR°O 
GET = DRACO 
INPUT = 6 DRE 
GOUT = DRC 4 
DIR? = 6 DRC? 
NXIN = DR DC 


Che les 7 
121,256 
l21,.1283 
121.1288 
121.258 
121.1296% 
iZ1l,1295 
Leacnaee es 
21.1307 
121.594 
121. 1309% 
121.151 2% 
121.1355 
121.248 
I21,1352% 
121.1552 
121.1350 
121.1364 
121.1268 
121.1367 
121.1376 
121.1382 

eile L4ORK 
121.264 

min L4OG% 
121.562 
121.1424% 
121.1426% 
121.1406 
121.1414 
121.1421 
121.1408 
121.1441 
121.1444 

121.1421 % 
121.1416 
121.1432 
121.8573 
123.1277 
121.1403 
121.1462% 
121.1074 
121,063 
121.566 
121.978 
121.1481 
121.1491 % 
121.1493 
121.1495 
P2i.isoix 
121.1492 
121.1503 
121.268 
121.210 
l21.1522 
Leow aes 


121. 2530 % 


eae eae © 
121.1284% 
l2i.l2ayx 
121. 1290% 
121.1292% 
here ioidg 


121.1298% 
121.1302% 
i2i.,1isi2 
121.890 

124.184 

121.1338 
121.1337 
121.993 

121.1602 

121.1362 

I21.1363% 
121.1594 

el.l a7 ak 
(21,1372 
121.1379 
121.1390% 
i21.,1419 
121. 1405% 
121.1454 
Lahey 

121.1432 
121.1469 
121.1427% 
121.1429% 
121.14 54% 
121.1411 

121.14435% 
121.1450% 
124.1424 
I21.1433 
121.142535% 
121.1425 7% 
125.1278 
121.14258% 
121.1448 
121.1425 
121.1478% 
c BPoae Gi Ba 

121.1070 
121.1483% 
121.1607 
121.1496% 
121.1498% 
121.1416 
121.1502% 
121.1506 
i21.1512% 
121.,.1521% 
121.1528% 
121.1529% 
121.1566 


i21.1305 


ge ade eg 
124.191 


121.1203 121.1303 


121.1092 121, 1340x% 


121.1375 
l2i.Tagar 


121. 1328O% 


121.933 


121.1405 


125.1232 124.845 

121.1443 

121.14238% 

121.1437 121.1448 121.1453% 
121.1508 121.1649 123.733 


121.1526 


121.1538 
121.973 


121.1465 


121.1565 
121.976 
121.14 79% 


m4 


READ 

4 
MAININE 
NX INF 
SNDQ? 
ST xr 
INSTART 
PUT CHR 
PENCHER 
PE CHR 
Sk 

NUM IN 
DATIN 
WN X 
SWENT 
INPF IN 
FINDATA 
NX& 

INF DONE 
MTD 
RETII 
EXIG 
REENT 
MEX T 
VARNXT 
SERV 
GERR 
GOTF OR 
GONEWS T 
E NDF OF 
E RMNUM 


CHE NUM 


CHES TR 
CHE VAL 
RETi2 
CVe 
MISMTCH 
JERROR 
PRMEVL 


PEYL OOF 
FRME VL 2 
CRROP 
CHE TYP 
ART TH 
PREF TEST 
NXOP 
SAVOF 
COMPARE 
ND 
PREPAC 
PSHMAD 
SNTXERR 
PSHF 


= $ DRE 2 
= 6 DRE 
= DRE Et 
=$ DEF I 
=$DCLF 
=$DC2Y 
= $ OC 2 
= $6 DC SF 
=$DC4B 
= DC4C 
=$DCI? 
= DCG 3 
=$DCS? 
= DO 7 2 
=$DC7E. 
= DCS 
= $ DCAO 
= $6 DOORS 
=$DCCS 
= DCD I 
= $ DCDE 
= DC DF 
= DCEF 
== DIE 
=$ DCF 
= DDO 
=$DDOD 
== 6 DDOF 
=$DOO A 
= 6 DOSES 
= $ DDS? 


=$DDSA 


=$DDSC 
= $ DDD 
= DD YS 
a DOD 7 4 
= BOD FS 
= DDT a 
= 6 DD YE 


= DDS 
=$ DDS 
= DDS 
=$DDR4 
= 6 DDOS 
=D DCD 
=®DDOS 
= % DDD? 
= DDE4 
= 6 DDEE 
= DDFS 
= DDFD 
a DE OD 
=$DE TO 


i21.1518 
121.1548 
121.1556 
121.1562 


l2zi. ico 4} 
re are Ow 
Lose tole 


121.150) 
121.1590 
121.1571 
121.1599% 
121.1595 
J24.14604 
121.1598 
i2i. 1564 
121.1621 
121.1611 
121.1642 
121.1444 
121.1647 
121.1506 
121.208 
121.1638 
121.1440 
121.1625 
121.1665 
121.1700 
121.1691 
121.1014 
122. 1308 
124,685 
121.1012 
122.810 
121.1714 
121.1249 
121.1718 
121.1716 
ie ae Oe of 
121.1667 
i21l.i276 
122.187 
Lee. 2% 
Lee. S4% 


se ae "a, 
fe ee aa ee | 


Lewol 
Lgee ot 
2e%Gu* 
{22.66% 
122:107% 
12 Ze ® ma) 
rarer eo 
eee 
tee. 45 
tcew oe 


or 7 APPLESORT = 


lal. lB40% 
121, 13544% 
121,.18425% 
tea sols 
121,1564% 
beke 167% 
121.1569% 
bette as TF 
1. 1 563% 
121,.13586*% 
leievavwias 
121,.1396% 
21+ AOiS 
A240. 003% 
121.1606 
121.12614% 
121.1618% 
121,.16335*% 
121.16397% 
123.1644 
121.14650% 
t21.1648 
21a Lous 
121.1630 
121.1461 
Leis 1LG62F 
121.1447 
121.1668 
a Oe Oe 4 8 
Leaked fi 
Lie koe 
OO ee Oe 


121.1712% 
teen ss 
I22. 248 
121.17135% 
Lateatat 
I21.1719% 
121,.1720% 
121.1721% 
@le Ll b4e 
L122. 246 
ce a a 
122, 1138 
122.48 
Leek. 39 
122. 57% 
122.81 
122.85 
122. 204 


Lee. 7k 


Leas BAK 
Leeuw ts st 
Lae. FO¥ 
ote PPE 


121.1438 


Lal. 160k 


121.1637 


121.1652 
121.1655% 


121.1799 


i21.1711% 
124.18 


Lee. OS 
122.837 


122.1118 
Den OS 


L21.14i?7 


Lee ADK 


wi eo / Be = 


Cente bee eeees cnet conee 


122. 504 
124,128 


b RO “ie eae 


122.878 
122.1165 


rds ae ae ae | 


PSHF AC X 
PUSHF AC 
NOTMATH 


) GOEX 


DOMTH 
DM TH 
DOMATH 
EXIT 
GETVAL 
Ski TF 
NUMBER 
VAR’? 

a lRTXT 
STi 
NOT? 
DOF 
MOT 2 
PN? 
SGN? 
PAR CHE 
CHECLS 
CHE OPN 
CHECOM 


2 YNCHR 


SYNERR 


MIN 
Oe 
VARL. 
VE 
VRS 
SCREEN 
UNARY 


NOTinstr= 


GQROUT 
OR 

AND 

PAL Si 
TRUE 
POSOF 
STRCMF 
SFS 

CMP LOOF 
NUMCMF 
DOCMPF 
CMP DONE 


PT ROGET 


PTRGET2 
PTRGETS 


=SDE TS 
== 6 DEO 
= 6 DE Ss 
=$DE SS 
= DE SA 
s= DOE 4 1 
=$DE 45 
=i DE SD 
= DE GO 
== 6 DE & 4 
=$DE SS 
= DE OC 
=$DE I 
=$ DE RA 
= DE PO 
= DE OS 
= DE SF 
= DE A4 
=$ DEAR 
= DER 
= $ DE RS 
= DEERE 
= 6 DE RE 


= DEO 


= $DECS 


= DE CE 
=$ DEEDS 
= 46 DE DS 
= DiS 
= SDE A 
= DEP S 
at DF OC 
$ DF SA 
=i DF SF 
= th OF 4h 
= DF Ss 
=i DF SD 
= DF Ot 
= DF SS 
=D 7D 
= 6 DF AS 
= 6 DF AS 
2 DF Re) 
= DF RS: 
BD (TT 
= SDF CA 
a DF CD 
= $B DOF DS 
=i DF DS 
=$DFES 


= DFER 
=6 DF ES 
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Bee Se 18 Be’ 
121.1025 
lee. ol 
a rae 
lee. &4 


lees rar 


ony Oy 4 
elie sine 88 Puan 


| a ame Bed 8 
22.31 
jee. L4nX 
wn LAP K 
l22.146 
121.1525 
: PP ae eo 
122.157 
121.3515 
bee ad oe 
122.167 
(oo 179 
122,183 
122. i188x 
122.186 
i2i1.1é612 
122. TA44 
t21.1014 
122.813 
124.190 
121.1993 
122.195 
Leeel Us 
Lees toy 
eae LAY 
122.210 
pa a at Sc 
Lev Lege 
i22.184 
122,244 
122. 259 
Or re ae 
5 ae ee Ges 
eee el 
122.274 
121.317 
Leesa cow 
at ares he 
122.3518 
Tee. 24 


1 Lae 8 i ed @ } 


ry. “rary 
slice ofc af teas! ofl afin 


199 =x 


wo woud 


123.276 
ioe. 345% 
te ar ae 
121.1540 
122, BO9 


122,345 


sey crecr 
hee ates 2 “eee Seed sae” 


122. 1O25% 
t2e2.11i% 


ieee ra 


aes 2OX 


a ies One 
ee LAK 
len. 84 

wen LS K 
Lee. 14K 


Lae p Besa pe 


i ie oe 
122. 148% 
Le ee 
122.163 
122.166% 
122.171% 
122.175% 
122.1/78% 
eee LBLK 
i122. 186% 


yey Ee 
a ar a a 


» LQOX 
oo ie 3 


121.1281 
122.826 

124,699 

121.1236 
L222. 198% 
l22.201% 
122. 202¥ 
eee DEM 
Lee. BLA 


Lee. 224% 


ry or i 
where ahice 82 okbee “eee 


122. 25/% 
Lee. 261% 
122. 264% 
Lee. 2/2 
Leeuw aso 
1224 279% 
lekaale 
122. 24% 
L2es eva 


my oy as Maar | 
eh, hie a Eke 


2c oer 


Lee. Seer 


122. 320% 


122. 344% 
121.1548 
124,850 


122, 352% 


122.829 
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i22.1i18x 


a er = | 
Lew. 4? 
122.245 
Lee. 247 


171.1344 
124.42 
124.729 
171.1442 


> Lar Ee 
an ar Soa WF 


l2a2. 441 


Pete PRCEE SnEee Beeee seeee 
0000+ suene hODe toned Goeee 


122.836 
Leeeuat 
122.806 


“Lae = OAS 


121.1525 
124.40 
124,769 
121.1500 
122.865 


124.182 


) 


RADNAM =8DFF4 
NAMCK = DEF? 
MORNAM = $EOO7 
GTLT =BEOT 
BYFASS =#EOL? 
STRANG?P =$EO1C 
INTVAR? =$EO2S 
NIN =r OTS 
SCDCH =$E ORD 
JAY at E C4} S 
RSE = BE OA) 
VSEARCH =®EO4F 
NX VAR =PEOES 
NYA = SE ORE 
Ni = BE OS 
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